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Foreword 

The  VIC  20  is  a  special  computer,  and  you  need  a  special  book  to  help  you 
get  the  most  out  of  your  computer.  This,  I  believe,  is  such  a  book. 

It  will  lead  you,  step  by  simple  step,  from  the  absolute  basics  of 
programming  your  VIC,  introducing  you  to  many  of  the  functions  and 
commands  available  in  the  BASIC  language,  through  the  splendid  sound, 
music  and  colour  possibilities  of  the  VIC,  to  the  point  where  you'll  soon  be 
writing  and  adapting  programs  by  yourself. 

While  the  book  may  just  seem  to  be  a  collection  of  games  for  the 
Commodore  VIC  —  and  there  are  more  than  60  games  given  in  the  book  — 
closer  inspection  will  show  you  that  following  through  the  explanation 
given  for  each  game,  and  computer  function,  will  add  to  your  knowledge 
of  the  VIC,  of  BASIC,  and  of  computers  in  general. 

However,  the  book  has  much  more  than  games.  If  you're  wondering  what 
to  do  with  your  new  computer  now  that  you  have  it  —  apart  from  playing 
games  —  you'll  find  a  host  of  ideas  including  several  which  may  help  you 
make  a  bit  of  money  with  your  VIC.  And  if  you're  a  parent  or  teacher,  you'll 
find  the  section  THE  VIC  AS  TEACHER  an  aid  in  making  the  most  effective 
use  of  the  computer  in  the  classroom.  Tim  Hartnell  has  outlined  some  quite 
useful  routines  for  educational  applications. 

The  book  is  a  worthwhile  resource  to  make  sure  you  make  the  most  of  your 
computer.  And  you'll  never  feel  quite  the  same  about  your  VIC  after 
surviving  a  round  of  FRENZY,  or  listening  to  your  computer  composing  a 
symphony. 

ZOE  SHEPHERD, 

London,  September,  1981 
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Abbreviations 

Many  of  the  keys  on  the  VIC  keyboard  have  symbols  which  cannot  be 
printed.  For  this  reason,  and  also  for  reasons  of  clarity,  the  following 
conventions  will  be  used  throughout  the  book. 

Spaces  in  print  statements  will  generally  be  written  out  in  full  and  in  small 
letters,  eg  PRINT  "HELLO  space"  means  there  is  one  and  only  one  space 
after  the  0  in  the  word  HELLO.  Similarly  PRINT  "two  spaces  BYE"  means 
that  there  are  exactly  two  spaces  between  the  first  quote  and  the  word 
BYE.  In  many  cases  this  convention  will  be  dropped  if  it  is  obvious  how 
many  spaces  are  needed,  eg  PRINT  "BYE  BYE  THEN"  would  be  preferable 
to  PRINT  "BYE  space  BYE  space  THEN". 

Graphics  symbols  are  also  available  from  the  VIC  keyboard.  The  right  hand 
graphics  are  obtained  by  using  the  shift  key,  and  these  will  be  written  out 
as,  for  instance,  shift  A  or  shift  Q  or  shift  F.  The  left  hand  symbols  are 
obtained  by  using  the  commodore  key.  These  will  be  written  as,  for 
example,  commodore  Q  or  commodore  K. 

Many  of  the  keys  contain  control  characters  which  may  be  used  in  PRINT 
statements.  We  shall  write  the  word  which  is  printed  on  the  key  itself  (ie 
not  necessarily  what  appears  on  the  screen)  in  CAPITAL  LETTERS, 
thus,  in  a  slightly  lighter  print.  For  instance  PRINT  "CLR  HELLO"  means 
the  symbol  obtained  by  pressing  shift  and  the  CLR /HOME  key,  followed 
by  the  word  HELLO.  There  is  no  space  between  CLR  and  the  letter  H  —  if 
one  is  needed  it  will  be  written  out  in  full.  Other  examples  could  be  PRINT 
"RED  H  YEL  E  GRN  L  PUR  L  CYN  0  BLU",  or  PRINT  "RVS  ON 
DANGER  RVS  OFF." 
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Introduction 

Welcome  to  this  book. 

If  you  work  through  the  text  carefully,  you  should  learn  enough 
about  programming  to  be  able  to  write  your  own  programs.  If  you 
follow  the  advice  given  on  “building  a  library”  you’ll  also  have  a 
healthy  set  of  neatly  labelled  cassettes  with  a  varied  choice  of 
programs. 

As  the  book  was  written,  it  was  assumed  that  you  would  like  to 
collect  a  number  of  different  programs  that  work;  that  you  would 
want  to  know  how  and  why  they  work;  and  that  you  would  want  to 
be  able  to  create  and  develop  your  own  programs.  The  book 
explains  how  the  included  programs  were  written,  developed, 
and  made  more  complex  and/or  fun  to  run,  from  a  simpler  "core” 
program.  As  you  follow  through  the  programs,  you  should  learn  a 
large  amount  of  Basic  fairly  easily. 

Before  you  read  the  book,  I  suggest  you  glance  through  it  to  get 
an  overall  picture  or  the  ground  it  covers.  The  more  Basic  you 
know,  the  further  you  can  read  into  the  book  without  plugging  in 
your  VIC  and  running  the  programs. 

The  book  was  written  with  the  idea  that  you  would  input  each 
program  when  you  came  to  it.  This  is  why,  for  example,  all  the 
Hunt  the  Hurtle-type  games  are  not  together.  You're  most 
unlikely  to  want  to  input  six  different  versions  of  the  same  game 
in  a  row.  The  order  of  programs  is  also  dictated  by  the  need  to 
put  the  simpler  ones  first. 


Tim  Hartnell 
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Random  Numbers 

Turn  on  your  TV,  and  get  the  cursor  on  the  screen.  Our  first  program  uses 
one  of  the  most  useful  programming  aids  for  games  —  the  random  number 
generator. 

Actually,  it  is  not  a  true  random  number  generator,  but  it  is  close  enough 
for  our  purposes.  To  generate  a  number  between  one  and,  say  10,  you  just 
input  J  =  INT  (10  *  RND  (1))  +  1.  If  you  follow  up  this  line  with  the 
command  PRINT  J,  your  computer  will  display  the  number  (between  one 
and  10)  which  it  has  generated.  Notice  that  when  you  write  a  program, 
each  line  must  be  numbered.  The  computer  executes  each  line  from  the 
lowest  number  to  the  highest. 

Try  this  program  first: 

18  PRINT 11  NUMBER  GENERATOR" 

20  J - 1 NT  < 1 0#RNB < 1 ) ) + i 
3@  PR  I  NT  J. i :: } 

40  GOT 020 

When  you  run  this,  you'll  find  the  screen  fills  up  with  numbers,  between  1 
and  10,  press  the  STOP  key  to  stop  the  program. 

There  are  many  things  you  can  learn  from  this  program: 

10  PRINT  "NUMBER  GENERA  TOR " 

This  line  starts  with  a  line  number  (as  I  mentioned  before).  You  can  use  any 
number  you  like  (between  1  and  9999),  but  you'll  find  working  in  multiples 
of  10  or  20  will  give  you  enough  room  to  add  new  lines  in  between  others  if 
you  need  to  later.  Line  numbers  sort  themselves  automatically  into  the 
correct  order.  When  you  ran  the  program,  the  VIC  acted  on  the  lowest 
numbered  line  (in  this  case  10)  and  obeyed  the  instruction  PRINT  and 
printed  what  was  between  the  quote  marks. 

Pretty  simple,  basic  stuff.  So  from  this  line  you  have  learned  the  use  of  line 
numbers,  and  of  the  command  PRINT. 

The  next  line: 

20  J  =  /NT  (10*  RND  (U)  +  7 

Lets  look  at  how  this  line  works  very  closely.  RND  (1 )  produces  a  random 

decimal  number  somewhere  between  zero  and  0.999999 - The  (1)  in 

brackets  does  not  determine  the  range  of  random  numbers  produced, 
instead  it  determines  how  the  random  number  is  produced.  We  shall  look 
at  this  in  a  minute. 
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10  *  RND  (1 )  is  therefore  a  decimal  number  between  zero  and  9.99999 _ 

and  this  is  where  the  function  INT  comes  in. 

INT  of  a  number  produces  (for  positive  numbers)  the  part  of  the  number  to 
the  left  of  the  decimal  point,  so  INT  (3.5)  is  3,  and  INT  (0.6)  is  0.  (For 
negative  numbers  INT  will  give  the  part  of  the  number  to  the  left  of  the 
decimal  point  less  one,  so  that  INT  (-0.6)  is  -1,  and  INT  (-3.5)  is  -4). 

Now,  if  10  *  RND  (1 )  is  a  decimal  number  between  0  and  9.99999 - then 

INT  (10  *  RND  (1))  is  an  integer  (or  whole  number)  between  0  and  9. 
Adding  one  produces  our  random  number  between  one  and  ten. 

Now  look  at  the  first  part  of  the  line.  This  is  20  J  = _ 

This  tells  the  computer  to  assign  the  value  generated  to  the  integer  variable 
J.  Then  when,  in  the  next  line,  you  ask  the  computer  to  PRINT  J,  it  prints 
the  number  which  has  been  assigned  to  J.  Don't  worry  if  you  can't 
understand  this,  it  will  become  clear  in  due  course. 

The  next  line: 

30  PRINT  J;  " 


This  line  tells  the  computer  to  print  the  number  which  it  has  assigned  to  J. 
The  semi-colon  after  the  J,  and  after  the  second  set  of  quote  marks, 
ensures  that  the  computer  will  print  the  values  for  J  one  after  another, 
instead  of  starting  a  new  line  for  each  one. 

Try  typing  30  PRINT,  J,  Using  ENTER,  put  this  into  the  program  in  place 
of  the  original  line  30.  Run  the  program,  and  you'll  notice  the  numbers 
printed  in  neat  little  columns.  The  comma  divides  the  screen  up  into  two 
parts,  and  when  it  reads  a  comma,  automatically  goes  to  the  start  of  the 
next  half  of  the  screen.  The  semi-colon  tells  the  VIC  to  go  on  and  print  the 
next  J,  leaving  a  space,  without  starting  a  new  line. 

The  fourth  line  of  our  original  program: 

40  GOTO  20 

The  computer  runs  through  the  program  in  order,  carries  oik  the 
instructions  in  each  line,  and  then  stops.  In  this  case,  when  it  gets  to  the 
end  of  the  program,  line  40  tells  it  to  go  back  to  line  20.  It  does  so,  then 
runs  through  the  program  again,  and  again  finds  the  instructions  to  go 
back  to  line  20.  It  stops  only  when  you  run  out  of  screen  space. 

Now  let's  look  at  the  (1)  in  brackets  in  line  20.  Let's  see  what  this  does. 
Change  line  20  to  J  =  INT(10*RND(2))  +  1  and  RUN  it  again.  As  you  can 
see  this  makes  no  difference  at  all.  Change  it  to  J  =  INT  (10*RND 
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(100)) +  1  and  then  RUN  it  —  again  there  is  no  difference.  (Remember  to 
press  the  STOP  key  to  end  the  program).  In  fact  as  long  as  the  number  in 
brackets  is  POSITIVE  (this  also  means  not  zero  by  the  way)  then  RND  will 
always  work  in  the  same  way. 

Now  change  it  to  J  =  INT(10*RND(0))  + 1  and  RUN  it  again.  Rather 
stunning  eh?  Each  "random"  number  is  the  same,  and  in  fact  is  the  same 
as  the  last  random  number  produced.  RUN  it  again,  and  again,  and  again. 

Add  the  line  5  J  =  RND  (1 ).  Now  run  it  over  and  over  again.  Each  time  you 
RUN  it  all  of  the  "random"  numbers  will  be  the  same,  but  the  value  of  this 
number  is  different  every  RUN. 

Here's  why. 

RND  (1)  (or  RND  (any  positive  number))  is  different 

every  time. 

RND  (0)  generates  the  same  number  which  was 

generated  last  time  RND  was  used. 

Let's  look  at  what  happens  if  the  number  in  the  brackets  is  negative. 
Leaving  line  5  in  place,  change  line  20  to  J  =  INT(10*RND(  -5)),  and  RUN 
the  program  over  and  over  again.  You  see  that  the  number  is  the  same 
every  time,  and  even  with  line  5  in  place  it  is  the  same  every  RUN.  Line  5 
makes  no  difference,  so  delete  it. 

Change  line  20  to  J  =  INT(10*RND(  -50))  and  see  what  happens. 

RND  ( -x)  first  of  all  re-seeds  the  random  number 

generator  with  x,  and  then  generates  a  random 
number  from  it. 

RND  ( +  x)  first  of  all  re-seeds  the  random  number 

generator  with  a  mathematical  manipulation  of 
the  previous  seed,  and  then  generates  a  new 
random  number  from  it.  The  value  of  x  is 
irrelevant. 

RND  (0)  does  not  re-seed  the  random  number  generator 

at  all,  but  generates  a  random  number  from  the 
OLD  seed. 

A  useful  trick  to  know  is  that  if  you  make  the  first  line  of  a  program 
J  =  RND(  -Tl)  then  RND  (1)  will  from  then  on  be  completely  random. 

Now,  you've  learned  that  a  letter,  such  as  J,  can  be  assigned  a  numerical 
value.  What  is  known  as  a  'string'  (a  letter,  or  a  letter  followed  by  a 
number,  or  two  letters,  followed  by  a  $  sign,  like  A$  or  BC$l  can  be 
assigned  to  a  word  or  words  (or  any  combination  of  letters,  symbols  and 
numbers,  but  we'll  stick  to  words  for  the  moment). 
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Clear  the  RAM  with  the  instruction  NEW,  and  input  the  following 
program: 

10  PRINT "NUMBER  GENERATOR" 

20  PR I NT "WHAT  IS  VOUR  NAME?" 

30  INPUTA* 

48  PR  I  NT  "OK,  ";A$.:  M  AN” 

45  PR I NT "GO I HO  TO  PRINT" 

50  PR I NT "SOME  RANDOM  NUMBERS  BETWEEN  ONE" 

68  PR I NT "AND  TEN. PRESS  RETURN" 

78  INPUTS* 

88  J= I  NT  <  i  0#RND  f,  1  >  >+ 1- 
98  PRINT,!.: 

i 00  got Oyy 

Try  running  this  program.  You'll  find  the  line  20  asks  your  name,  and  then 
accepts  it  in  line  30,  assigning  the  string  A$  to  your  name.  The  computer 
then  uses  your  name  (A$)  in  the  next  line,  line  40. 

The  other  thing  to  note  about  this  program  is  the  line  60  which  tells  you  to 
press  the  RETURN  key  to  continue.  The  string  in  line  70  (B$)  is  just  a  way 
to  tell  the  computer  to  stop  and  wait  for  RETURN  to  be  pressed.  This 
feature  is  a  very  useful  one  in  games,  and  we  will  be  using  it  time  and  time 
again. 

The  clear  screen  facility  is  very  useful  here.  PRINT  "CLR"  you  will  find, 
clears  the  screen  of  everything  that  preceded  it  on  the  program,  but 
doesn't  (as  will  become  important  later)  'forget'  what  has  been  assigned  to 
the  string,  A$.  To  get  the  special  CLR  character  in  quotes,  hold  down 
SHIFT  and  press  the  CLR/HOME  key.  That  is  the  computer  still 
remembers  your  name  (A$),  so  long  as  you  don't  wipe  the  program  with 
NEW  or  turn  off  the  power,  or  go  back  into  the  'command  mode'  (when 
you  can  see  the  whole  program  listed  on  the  screen,  numbers  and  all). 

We  can  let  the  computer  count  how  many  times  it  goes  around  the  loop 
(that  is,  how  many  times  it  executes  the  lines  80,90  and  100).  Add  the 
following: 

I  SlHEN  END 

If  the  variable  K%  confused  you  don't  worry.  The  %  sign  just  means  K  is 
an  INTEGER  variable. 

Integer  variables  can  only  store  whole  numbers  between  -  32768  and 
+  32767,  but  they  are  faster,  and  need  less  memory  to  store.  Since  J  was 
an  integer  we  would  have  called  it  J  %  if  we'd  have  wished. 
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Now  run  it#  you  should  find  the  program  prints  31  numbers  between  0  and 
1 0  and  then  stops.  It  does  this  by  assigning  the  value  of  zero  to  the  number 
variable  in  line  76,  then  adds  one  to  K%  each  time  round  (so  the  first  time  it 
is,  in  effect,  LET  space  K%  =  0  +  1 ,  the  second  time  LET  space  K  %  =  1 
+  1 ,  the  third  time  LET  space  K  %  =  2  +  1 ,  and  so  on)  until  K%  is  bigger 
than  30,  when  the  computer  ENDS.  This  counting  and  terminating  feature 
is  a  very  useful  one. 

IF/THEN;  In  line  95(IF  K%>  30  THEN  END)  we  used  one  of  the 
computer's  facilities  to  make  a  decision,  and  act  on  it.  This  IF/THEN  is  a 
very  useful  command  in  BASIC.  The  form  of  an  IF/THEN  line  is  line 
number,  IF  something  (such  as  IF  Z  =  30,  or  IF  A  =  B)  followed  by  THEN 
and  another  command.  In  BASIC  the  other  command  can  be  anything 
(such  as  a  line  number  to  go  to,  LET  S  =  2,  or  END). 

Let's  get  to  our  first  real  program. 


Simple  Decision  Makers 

Input  the  following: 

10  PRINT, "DECISION  MAKER" 

20  PRINT 
30  PRINT 

40  PR I NT "THINK  OF  A  QUESTION  AND" 

50  PR I NT "PRESS  RETURN  FOR  A" 

60  PRINT"BECISION  ON  IT" 

78  INPUTS* 

80  J-INT <3#RND< 1 >  > 

90  I F J=0THENPR I NT , "VES" 

100  IFJ=1THENPRINT, "NO" 

1101 FJ=2THENPR I NT , " MAYBE " 

120  END 
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Run  this  program  a  few  times.  You'll  see  how  the  comma  in  lines  10,  90, 
1 00  and  1 1 0  sets  the  words  away  from  the  left  hand  side  of  the  screen,  and 
how  lines  20  and  30  (with  just  the  command  PRINT,  with  nothing  following 
it)  put  a  space  between  the  printout  of  lines  10  and  40. 

Now  comes  the  creative  bit.  To  dress  up  this  program,  you  can  do  at  least 
three  things:  (1)  Let  the  computer  ask  for,  and  use  your  name;  (2)  Use 
"CLR"  to  make  the  presentation  cleaner,  and  (3)  Allow  you  more  than 
one  go.  Try  and  amend  the  program  (by  slipping  things  in  between  the 
numbered  lines,  and/or  by  changing  some  lines)  until  you  can  do  these 
three  things  —  before  reading  on.  Cover  up  the  following  program  until 
you've  had  a  go  at  altering  the  original  program. 

This  is  just  an  example  of  how  to  modify  the  program.  There  are  many, 
many  other  ways  to  achieve  similar  ends. 


10  PRINT,  "DECISION  MAKER 11 

28  PRINT 

25  PR I NT “WHAT  IS  VOUR  HP ME?” 

38  INPUTA$ 

40  PR  I  NT*™  INK  OF  A  QUESTION, 

58  PR I NT "PRESS  RETURN, AND  I" 

60  PR  I  NT 11  WILL  MAKE  A  DECISION  OH  IT," 

78  J*INT<3#RND<1>) 

80  INPUTS# 

90  I FJ-8THENPR I  NT , 55  VES  ” 

100  IF  J^ITHENPRINT,  ,JN0:: 

110  I~J=2THENPRIN7,  :,MAVBE8? 

128  PRINT 

130  PR  I  NT 11  ANOTHER  G0,,:;A$.; 

140  INPUTS* 

158  I FB* = " VES " THEN4© 

170  PRINT,5nOK,,iJfl$;%BVE  BVE,! 

180  END 

Note  the  way  the  computer  is  asked  to  check  if  B$  =  "YES”  (in  line  1 50).  If 
it  finds  that  B$  is  equal  to  YES,  control  goes  back  to  line  30.  There  is  no 
need  to  put  in  a  line  IF  B$  =  "NO"  THEN  160  because  the  computer  moves 
on  until  it  comes  to  another  instruction. 

There  is  another  refinement  we  could  add  to  this  program.  Try  and  work 
out  how  to  make  the  amendment  before  you  read  the  program  listing.  If 
you  decided  you  wanted  the  computer  to  give  you  two  "NO"  and  two 
"YES"  to  every  one  "MAYBE",  how  would  you  amend  it?  Try  to  work  this 
out  (changes  will  be  needed  between  lines  80  and  120)  before  you  read  on. 
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If  you  need  five  alternatives  (two  NO,  two  YES,  and  one  MAYBE),  you  will 
need  line  80  to  generate  five  random  numbers.  For  two  of  these  the 
computer  must  print  NO,  and  so  on.  To  save  writting  IF  J  =  0  THEN 
PRINT  "YES”,  and  IF  J  =  1  THEN  PRINT  "YES”,  and  IF  J  =  3  THEN 
PRINT  "NO"  and  so  on,  we  can  use  the  line  IF  J  <  2  THEN  PRINT  "YES”. 

But  what  about  the  "NO”  answer?  If  you  write,  for  line  100,  IF  J  <  5  THEN 
PRINT  "NO”,  the  computer  will  print  a  YES  with  a  NO  underneath  if  the 
number  3  or  4  is  generated.  You  can  overcome  this  as  follows: 

80  J-INT<5#RND<1» 

90  I F J <2THENPR  I MT ,!  VES  w 
190  I F J>2THENPR I NT " NO " 

118  I F J =2THENPR I NT " MR VBE " 


A  little  later  on  we'll  work  out  a  more  sophisticated  DECISION  MAKER 
program,  but  for  now  let's  do  something  a  little  more  interesting  —  play 
Russian  roulette. 

Russian  Roulette 

The  principle  of  the  game  is  simple.  You  have  a  pistol  with  six  chambers, 
only  one  of  which  contains  a  bullet.  You  spin  the  chamber,  pull  the  trigger, 
and  . . .  either  bang,  or  click.  Already  you  are  thinking  "Aha,  the  random 
number  generator,  one  in  six.”  The  only  major  decision  to  make  is  how 
many  shots  you  are  going  to  have  before  ending  the  game.  Enter  the 
following  program,  run  it  a  few  times,  then  come  back  to  this  book  for  a 
discussion  on  some  of  the  features  of  it. 

10  PRINT "RUSS I AN  ROULETTE" 

30  PRINT 
40  J=0 

50  INPUT "PRESS  RETURN  TO  FIRE";T$ 

60  PR  I  NT  "T 
80  J»J+1 

90  G=INT<6*RNIX1>> 

1 00  I  FG<5THENPR  I  NT"  CL  I CK  p 

110  IFG=5THEN140 

120  IFJ=10THEN160 

130  GOTO50 

140  PR I NT "BANG. , . 

150  GOTO 140 

160  PRINT"VOU  HAVE  SURVIVED" 

170  END 
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Look  at  line  50  -  INPUT  "PRESS  RETURN  TO  FIRE";  T$.  This  first  of  all 
prints  PRESS  RETURN  TO  FIRE?  on  the  screen,  and  then  INPUTS  T$ 
normally  on  the  same  line.  This  useful  feature  saves  having  to  use  both  a 
PRINT  and  an  INPUT  statement. 

Notice  this  program  uses  the  GOTO  (in  lines  110,120,130  amd  150) 
command  to  either  give  you  another  'shot',  print  BANG...  to  fill  the 
screen,  or  to  print  YOU  HAVE  SURVIVED.  Remember  to  pres  the  STOP 
key  to  end  the  game  if  BANG ...  is  being  printed.  Line  40  sets  J  =  0  at  the 
beginning,  and  line  80  adds  one  to  it  each  time  you  run  through  until 
(unless  you've  shot  yourself)  you've  been  through  ten  times,  that  is  when  J 
=  10.  Line  120  checks  the  value  of  J  and  either  sends  you  back  to  50  or 
advance  to  160.  Now,  add  the  following  line  to  the  program  and  run  it  a 
few  times: 

95  PRINTG, J  ' 

This  added  line  displays  the  number  that  line  90  has  generated  and,  to  the 
right,  the  number  of  the  run  (ie  J)  that  you  are  on.  After  you've  run  it  a  few 
times,  erase  line  95.  Before  you  read  on,  try  to  amend  the  program  (just  by 
adding  lines  between  the  present  ones)  to  allow  the  program  to  give  you 
(a)  the  option  not  to  play  at  all;  and  (b)  the  chance  for  subsequent  games  if 
you  manage  to  survive. 

30  INPUT 11  DO  VOU  WANT  TO  PLAV";A$ 

34  IFfl$=,,NO,tTHENEND 


and  further  down: 

162  PR  I  NT’5  DO  VOU  WANT  ANOTHER  GO" 

165  IMPUTES 

166  I  FES55  ”  VES  u  THEN40 

You  may  well  have  modified  the  program  differently,  but  as  long  as  it 
works,  it  doesn't  matter  exactly  how  you  do  it. 

Now,  the  following  is  a  very  important  point  for  the  development  of  games' 
programs.  The  best  way  I've  found  to  work  out  games  is  to  set  up  the 
'core'  of  the  game  first  (in  the  case  of  RUSSIAN  ROULETTE,  the  core 
would  be  the  first  version  of  the  game).  Having  set  up  this  core,  and  made 
sure  it  works,  I  then  proceed  to  elaborate  the  game  to  make  it  more  fun  to 
play. 

You  may  have  felt  that  the  running  of  the  game  in  its  present  form  is  a  little 
unsatisfactory,  and  that  when  line  95  was  included  (PRINT  G,J)  it  was  a  bit 
more  interesting.  So  add  the  following  line: 

95  PR I NT "THAT  WAS  SH0T»;J 
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and  run  the  program.  That  certainly  makes  it  a  bit  more  interesting.  Before 
reading  on,  I  want  you  to  try  and  write  a  new  version  of  line  95  which  will 
tell  how  many  shots  you've  left  to  reach  10,  rather  than  just  telling  you  the 
number  of  the  current  shot.  One  way  of  doing  it: 

35  PRINT10-J; "SHOTS  TO  00" 


Now,  let  us  have  a  second  look  at  line  34.  Instead  of  just  stopping  when  the 
player  decides  not  to  play,  why  not  let  the  computer  respond  more 
definitely,  say  by  printing  the  word  CHICKEN  to  fill  the  screen.  Try  and 
work  out  how  to  do  this.  For  a  start,  you'll  have  to  change  the  END 
statement  in  line  34  into  a  GOTO  statement. 

One  way  of  doing  it: 

34  I F fi$= " NO " THEN 180 

180  PRINT"CHICKEN...B; 

181  GOTO 180 

This  version  prints  a  most  interesting  pattern  of  the  word  CHICKEN.  We'll 
use  this  pattern-effect  to  produce  a  new  program  shortly,  but  for  now,  add 
a  few  more  lines  to  the  program  so  that  it  uses  the  player's  name.  Once 
you've  done  that,  and  before  you  read  my  version  below,  try  to  write  in  a 
line  so  the  computer  won't  print. . .  SHOTS  TO  GO  on  the  shot  which  fills 
the  screen  with  BANG. . .  This  is  my  final  version  of  the  program: 


10  PRINT, "RUSSIAN  ROULETTE" 

28  PRINT 

24  INPUT  "WHAT  IS  VOUR  NAME",*  AS 

27  PRINT 

28  PRINT 

30  PR  I  NT  "DO  VOU  WfiNT  TO  PL.RY,  ";fl$ 

32  INPUTS* 

33  PR  I  NT  "T 

34  I  FB$- " NO " THEN 1 80 
40  J=0 

50  INPUT "PRESS  RETURN  TO  FIRE";T$ 

70  PR  I  NT  "T 
80  J=J+1 

90  G=INT<6#RNDa>> 

95  PRINTR*;  10-J;  "SHOTS  TO  GO" 

36  PRINT 
97  PRINT 

100  I FOOTHENPR I  NT  "  CL  I CK  " 
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105  PRINT 

110  IFG=5THEN140 

120  IFJ=10THEN160 

130  GOTO50 

140  PR  I  NT  "BANG.  . . 

150  GOTO 140 

160  PRINT"VOU  HAVE  SURVIVED 

162  PR I NT "DO  VOU  WANT  ANOTHER  GO?" 

164  INPUTCf 

165  PR  I  NT  "T 

166  I  FC$=  "  VES 11 THEN40 
180  PR I NT "CHICKEN. , , 

130  GOTO 180 


Now,  before  we  leave  Russian  roulette  games,  we'll  look  at  one  final 
version  that  introduces  you  to  a  new  command,  and  shows  a  slightly 
different  conversational  approach: 

10  PR I NT "RUSS IAN  ROULETTE  <3)" 

20  PRINT 

25  PRINT"HI,GUN  TOTER!  VOU  HAVE"; 

30  PRINT"A  PISTOL  WITH  ONE  BULLET  IN  IT. » 

35  PR I NT "VOU  WILL  SPIN  THE  CHAMBER" 

40  PR I NT "AND  FIRE  10  TIMES." 

50  INPUT "ARE  VOU  GAME  TO  PLAV";A$ 

60  PRINT 

65  I F 8$= " NO " THEN 185 
67  J=0 

70  INPUT "PRESS  RETURN  TO  FIRE";T$ 

80  PR  I  NT  "T 
85  PRINT 
90  PRINT 
95  PRINT 
100  J=J+1 

105  6*INT<6#RNDa:0 
110  PR I NT "SHOT  NUMBER" ;J 
115  I FG-C5THENG0SUB 195 
120  IFG-5THEN220 
125  IFJ*10THEN135 
130  GOTO70 
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135  PR  I  NT 11 T 
140  PRINT 
145  PRINT 

150  PRINT"VOU  SURVIVED,” 

155  PRINT” IF  VOU  WANT  TO  RISK  DEATH  AGAIN” 

160  PR I NT” PRESS  G  FOR  GO.,, OR  S  FOR  STOP” 

165  GETS* 

170  IFB$=”G"THEH6? 

180  I FB$<> ” S ” THEN 1 65 
185  print”cowarb.,.s:; 

190  GOTO 185 

195  H=INTC2#RNB<1)> 

200  I FH=0THENPR I NT ” CL I CK " 

210  I FH~ 1 THENPR I NT " EMPTY  CHAMBER” 

215  RETURN 

220  PRINT”BANG*»,”; 

225  GOTO220 

Notice  how  GET  was  used  instead  of  INPUT  in  line  165.  GET  can  often  be 
used  instead  of  INPUT  but  only  one  character  at  a  time  may  be  entered, 
and  it  is  not  necessary  to  press  RETURN. 

Lines  170  and  180  will  ensure  that  the  GET  line  is  run  again  if  "G"  or  "S"  is 
not  pressed. 


An  interesting  point  about  the  GET  statement  is  that  it  doesn't  wait  for  a 
key  to  be  pressed.  The  next  line  in  the  program  continues  immediately,  and 
if  no  key  is  being  pressed  GET  B$  will  assign  the  empty  string  ("  ")  to  B$. 

You'll  notice  as  you  play  this  that  an  empty  chamber  (ie  G  <  5)  gives  you 
either  CLICK  or  EMPTY  CHAMBER,  which,  as  you  can  see,  is  generated 
by  the  lines  195  to  215.  The  computer  leaps  to  195  from  115  on  the 
command  GOSUB  195. 

Lines  195  through  to  215  makes  up  a  "subroutine".  Whenever  the 
computer  comes  across  a  GOSUB  command,  it  goes  to  the  line  specified, 
and  follows  on  until  it  comes  to  command  RETURN.  The  computer  then 
returns  to  the  line  after  the  GOSUB  command.  The  GOSUB/RETURN  is  a 
very  useful  feature.  We'll  be  using  it  again. 

You  will  recall  that  when  you  first  worked  out  how  to  get  the  computer  to 
fill  the  screen  with  the  word  CHICKEN  that  it  made  quite  an  attractive 
pattern.  We  are  going  to  look  now  at  a  slightly  more  developed  form  of 
pattern-making  program,  which  uses  the  FOR/NEXT  loop  to  limit  the 
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number  of  times  the  sequence  of  letters  or  spaces  is  repeated.  We  will  be 
looking  at  the  FOR /NEXT  loop  in  detail  a  little  later. 


Pattern  Makers 

The  core  of  this  program  is  simple.  Feed  it  into  your  computer  and  after 
pressing  RUN,  input  any  six  letters  and/or  spaces,  then  press  RETURN. 

10  INPUTfl* 

20  F0RJ=1T075 
30  PRINTfi*.: 

40  NEXTJ 

You  can  run  this  program,  which  is  surprisingly  effective,  using  any 
combination  of  letters,  numbers  and  symbols  you  like.  You'll  find  that  one 
or  two  spaces,  instead  of  letters,  enhance  the  pattern  produced.  Try  a  few 
more  patterns,  using  spaces,  letters  like  M  and  W,  the  $  sign,  the  numbers 
6  and  9  and  the  graphics  symbols. 

Before  reading  on  to  see  how  I  have  done  it,  try  to  write  around  the  core 
program  you  have  to  include  the  following  features;  (a)  a  title;  (b) 
instructions;  and  (c)  the  chance  to  form  another  pattern  without  having  to 
go  back  into  the  command  mode  and  press  RUN  again.  Cover  up  my 
version  until  you've  tried  your  own. 

One  way  (and  there  is  an  infinite  number  of  ways  you  could  have  done  it)  is 
as  follows: 

1  PRINTS  PATTERNS" 

PRINT 

PR I NT "PRESS  ANY  COMBINATION  OF  S  LETTERS  , SYMBOLS  AND  SPACES.. 
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8  PRINT 

10  PRINT". . .AND  I  WILL  PRINT  A  PATTERN" 

12  INPUTfl* 

15  PR  I  NT  "T 
20  F0RJ-1T075 
30  PRINTA*; 

40  NEXT.J 
50  PRINT 

60  PR I NT "DO  VQU  WANT  ANOTHER  GO?" 

65  IMPUTBf 

80  I FB$= " VES " THENRUN 

90  PR  I  NT  "OK.-  SEE  VOU  LATER,  ARTIST" 

100  END 

This  is  quite  an  addictive  program.  The  simplest  combination  of  letters 
produces  almost  three-dimensional  patterns.  If  you  set  this  program  up  for 
one  of  your  friends  to  try,  be  ready  to  wait  a  long,  long  time  before  you 
next  have  a  go.  For  a  colour  pattern,  add  the  lines 

25  ON I NT ( 8#RND ( 1 ) ) + 1 GGSUB120 , 1 40 , 160, 180,200,220,240,260 

120  PRINT"!".: 

130  RETURN 
140  PRINT"!"; 

150  RETURN 
160  PRINT"!!"; 

170  RETURN 
180  PR I NT "k"; 

190  RETURN 
200  PRINT"r; 

210  RETURN 
220  PRINT"!!"; 

230  RETURN 
240  PRINT"S"; 

250  RETURN 
260  PR  I  NT  "HI"; 

270  RETURN 

Line  25  means  if  the  random  number  expression  is  1  then  GOSUB  120,  if 
the  random  number  is  2  then  GOSUB  140,  and  so  on  up  to  GOSUB  260. 

Now  look  at  the  subroutines  themselves.  You  will  need  to  use  the  CTRL 
key  to  get  the  colour  keys.  See  how  easy  it  is  to  print  in  colour. 

For  a  balanced  colour  program,  enter  and  run  the  following. 
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10  PRINT” IT ; CHR$<  <32#RNDC 1 > >+96) ; 

20  PR I NT "k” ; CHRf < <32#RND< 1 > >+96) J 
30  PRINT"*" ; CHR$< <32*RND< 1 ) >+96) ; 

40  PR  I  NT"  II" ;  CHR$<  <32#RNB<  1 )  >+96) ; 

50  PR  I  NT  "SI" ;  CHR$<  <32#RNB<  1  >  >+96) ; 

60  PR I NT "S" ; CHR$< <32#RNB< 1 >  >+96> , 

70  GOTO 10 

Some  of  them  will  be  terrible  patterns,  others  rather  good. 

Try  changing  the  comma  in  line  60  to  a  ;  You'll  want  to  play  with  this  for  a 
long  time. 

You  can  make  the  program  a  little  shorter  using  the  DEF  statement.  Add 
LINE  1  as  follows: 

1  BEFFNR<X)=INT< <32#RND<X) >+96> 

now  whenever  you  see  the  phrase  INT(32*RND(1 ))  +  96)  in  the  program 
(lines  10-60)  replace  it  by  the  phrase  FNR(1).  Whenever  the  computer 
comes  across  the  word  FNR  it  looks  at  line  one  which  tells  it  what  it  means. 
We'll  be  using  DEF  again. 


Building  a  Library 

I  hope  you've  been  SAVEing  the  programs  you  create  as  you  go  along. 
There  is  little  point  in  having  to  input  the  whole  program  by  hand  every 
time  you  want  to  run  it. 

Resist  the  temptation  to  put  all  your  programs  on  one  cassette,  one 
program  after  another.  The  frustration  you'll  experience  searching  through 
the  tape  (even  if  you've  identified  each  program  with  a  voice  label)  to  find  a 
particular  program  is  just  not  worth  the  trouble.  Go  to  your  computer 
shop,  or  buy  by  mail  from  one  of  the  many  companies  that  advertise  in  the 
personal  computing  magazines,  and  get  a  set  of  C-12  cassettes.  Put  just 
one  program  on  each  cassette,  with  two  copies  of  each  program  on  each 
side,  just  in  case  something  happens  to  one  of  the  copies  and  you  find  it 
difficult,  or  impossible,  to  LOAD. 

Write  the  name  of  the  program  on  the  cassette,  and  on  the  cardboard 
insert.  You'll  find  this  makes  it  very  easy  to  find  the  program  you  want,  and 
as  your  library  builds,  it  will  give  you  quite  a  feeling  of  accomplishment  to 
see  all  those  programs  ranked  side  by  side.  It  will  impress  your  friends  as 
well,  who  will  believe  after  visiting  you,  and  playing  with  your  computer, 
that  you're  some  kind  of  natural  computer  genius  (which  you  probably 
are). 
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Review 

Let's  review  the  ground  we've  covered  so  far; 

—  The  use  of  the  random  number  generator  J  =  INT(X*RND(1 )) 

+  1 

—  The  output  statement  PRINT 

—  The  use  of,  and  ;  in  PRINT  statements 

—  The  control  statement  IF. .  .THEN . . . 

—  The  use  of  strings  (A$),  including  the  use  of  a  string  to  stop  a 
program  until  RETURN  is  pressed 

—  The  statement  GET 

—  The  symbols  <  and  > 

—  The  operator  AND 

—  The  statement  END 

—  The  statements  FOR . . .  TO/NEXT 

—  The  form  and  use  of  a  "counter"  to  limit  the  number  of  times 
part  of  a  program  is  run  through 

—  How  to  develop  a  game  program  from  the  core  of  it,  to  make  it 
more  elaborate  and  interesting 

—  Subroutines  (with  the  commands  GOSUB  and  RETURN) 

—  How  the  sequence  FOR. .  .TO. .  ./NEXT,  and  PRINT  can  be 
used  to  generate  pattens. 

We've  come  quite  a  long  way  in  a  short  time.  Make  sure  you  understand  all 

the  preceding  material  before  going  on. 


For/ Next 

You'll  remember  when  we  wrote  the  first  PATTERN-MAKER  program,  we 
used  (in  line  20)  FOR  J  =  1  TO  75,  and  (in  line  40)  NEXT  J.  We  will  now 
have  a  look  at  the  use  of  FOR/ NEXT  loops  in  some  detail. 


First,  input  the  following  program: 

10  J=0 

20  PRINT,,J=sM;  J 
30  IFJ=10THENEND 
40  JsJ+1 
50  GQTO20 
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Run  it  a  few  times,  then  clear  the  memory  and  input  the  following 
program,  which  uses  the  FOR/NEXT  loop: 


10  FQRJ=1T018 
20  PRINT" >"jj 
30  NEXTJ 


You  can  see  that  running  this  program  produces  exactly  the  same  result  as 
running  the  preceding  one,  although  this  second  program  is  only  three 
lines  long,  two  shorter  than  the  first  program.  It  is  not  always  possible  or 
desirable  to  use  a  FOR/NEXT  loop  as  a  “counter",  but  because  it  uses  less 
memory  than  the  J  =  J  +  1  approach,  it  should  always  be  investigated. 

When  you  run  a  program  with  a  FOR /NEXT  loop,  the  computer  goes  from 
line  to  line  after  the  FOR  statement  until  it  finds  the  NEXT  command,  when 
it  reverts  to  the  FOR  line.  You  can  place  one  (or  more)  FOR/NEXT  loops 
inside  another. 

If  line  10  had  read  FOR  J  =  1  TO  5  then  5  numbers  would  have  been 
printed.  If  it  had  read  FOR  J  =  1  TO  20  then  20  numbers  would  have  been 
printed.  If  it  had  read  FOR  J  =  1  TO  0  then  no  numbers  at  all  would  be 
printed,  because  control  would  jump  straight  away  to  the  line  after  the 
NEXT  J  line.  Leaving  line  10  as  it  was  add  the  following: 

22  F0RKs51TG2 
25  PRINTK 
27  NEXTK 

Run  this.  It  is  important  to  make  sure  that  each  loop  nests  neatly  within 
each  other  loop.  That  is,  if  you  placed  the  NEXT  K  command  after  the 
NEXT  J,  so  the  loops  cross,  you  get  a  rather  unsatisfactory  result. 

Finally,  here  is  a  remarkably  effective  double  FOR/NEXT  loop  program: 

5  PRINT'TJVOUR  NAME  IN  LIGHTS" 

10  F0RJ=1T06 

20  PRINT,  "(PUT  VOUR  FIRST  NAME  HERE)".: 

30  F0RS=1T099 
40  PRINT"*"; 

50  NEX'TS  ,  J 
60  END 

This  is  a  good  program  to  run  for  your  egocentric  friends.  Note  that  in  line 
50  NEXT  S,J  is  the  same  thing  as  NEXT  S  followed  by  NEXT  J. 
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Flipping  a  Coin 

The  computer  can  be  used  to  simulate  a  huge  variety  of  things,  from  the 
growth  of  plants  to  the  effects  of  bumps  on  the  road  on  motorcycle 
suspension.  We  are  going  to  look  at  a  more  homely  example  of  simulation: 
flipping  a  coin. 

Input  the  following  program,  and  run  it: 

10  PRINT"!]  COIN  FLIP-1" 

20  J=INT  <2#RND<  1  >  > 

30  I F Js 1 THENPR I NT " HEADS " 

40  I F J=0THENPR I NT ” Tfi I LS " 

50  END 


Once  you've  run  this  a  few  times,  amend  the  program  as  follows: 

10  PRINT"!]  COIN  FLIP-2" 

20  J*INT<2#RN1K1>> 

30  I F 1 THENPR I NT " HERDS " 

40  I F ..T =0THENPR  I  NT  "  Tfi  I  LS " 

50  PRINT"T0  FLIP  RGfllN  PRESS  F" 

60  INPUTfl$ 

78  IFfi$="F"THENRUN 
80  END 

You  can  run  this  until  the  screen  is  full.  Although  there  will  probably  be  an 
imbalance  in  the  numbers  of  HEADS  and  TAILS,  the  longer  you  run  the 
program,  the  more  the  ratio  of  each  should  approach  1:1.  If  we  knew  how 
many  times  we  had  flipped  the  coin,  it  would  make  it  easier  to  work  out 
how  many  HEADS  and  how  many  TAILS  the  program  had  printed.  It  is 
fairly  simple  to  amend  the  program  to  do  this.  Try  it  yourself,  before 
looking  at  my  version. 


10  K=1 

20  PRINT"!]  COIN  FLIP-3" 

38  J=INT<2*RHD<1>> 

48  PRINT"FLIP  NUMBER" ;K;  "IS  ".: 
50  I F J= 1 THENPR I NT " HERDS " 

60  I F J=0THENPR I NT " Tfi I LS " 

70  K=K+1 

80  PR  I  NT 11  TO  FLIP  fiGRIN  PRESS  F" 
98  INPUTfi$ 
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100  IFfl$="F"THEN20 
110  END 

Once  you've  run  this  a  few  times  and  added  up  the  HEADS  and  TAILS, 
and  then  worked  out  what  the  ratio  of  HEADS  to  TAILS  is,  you  will 
probably  have  realised  the  computer  can  do  all  the  work  —  flip  the  coin, 
count  the  heads  and  tails,  and  then  manipulate  this  result  as  you  choose. 
Let's  try  a  more  complex  program: 

10  H=0 
20  T=0 
30  K=1 

40  PR I NT "3  COIN  FLIP-4" 

50  J=INT<2*RNB<i>:> 

60  PRINT"FLIP  NUMBER" ;K;n IS  "; 

70  I F J= 1 THENPR I NT ” HERDS ” 

80  I F J =0THENPR I NT ” Tfi I L$ ” 

90  IFJ=1THENH=H+1 
100  IFJ=0THENT=T+i 

110  PR I NT "OUT  OF" ;K; "FLIPS  VOU  HAVE" 

120  PRINTH; "HERDS  AND" ;TJ "TAILS" 

130  K=K+1 

140  PR I NT "PRESS  F  TO  FLIP  AGAIN" 

145  INPUTA* 

150  PR I NT "3" 

160  IFfl$="F,:THEN40 

170  PR I NT "THANKS  FOR  PLAVING.BYE" 

180  STOP 

You  will  find  that  adding  PRINT  statements  for  lines  105,  106  and  107  will 
make  the  program  easier  to  read.  Now,  we  could  use  a  FOR/NEXT  loop  to 
tell  the  computer  in  advance  how  many  times  we  wanted  to  flip  the  coin, 
and  then  we  could  leave  it  to  do  the  work.  For  practice.  I'd  like  you  to 
produce  such  a  program,  which  also  asks  the  player  at  the  beginning  how 
many  times  he  or  she  wishes  to  flip  the  coin.  I  am  not  going  to  give  you  a 
sample  version  of  this  because  I  think  by  now  you  should  be  able  to  write 
such  a  program  easily.  What  I  am  going  to  give  you  though  is  another 
version  of  the  program,  that  gives  approximate  percentage  breakdowns  of 
heads  and  tails.  First  write  your  program  using  the  FOR/NEXT  loop,  SAVE 
it,  and  then  have  a  look  at  my  final  COIN  FLIP  program. 

10  PR I NT "3  FLIP-A-COIH" 

20  H=0 

39  T=0 

40  K=1 
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58  J=INT (2$RND( 1 ) ) 

55  PRINT 
57  PRINT 

68  PR I NT "FLIP  NUMBER" ;K; "IS 
78  I F J= 1 THENPR I NT "  HERBS  " 

80  I F J=0THENPR I NT ” TR I LS " 

90  IFJ=1THENH=H+1 
180  I F J =0THEHT =T+ 1 
105  PRINT 
186  PRINT 
107  PRINT 

110  IFK=1THEN150 

111  R=INT ( 10@*H/K+. 5) 

112  B= IHT C 1 0Q$T/K+ , 5 ) 

113  I Ffl+B> 1 00THENfl=R- 1 

120  PRINT" IN" JK; "FLIPS  VOU  HAVE" 

130  PRINT"flPROX.";BJ"X  TAILS" 

140  PRINT"flND,,;flJ"8  HERDS" 

142  PRINT 
147  PRINT 

158  PR I NT "PRESS  F  TO  FLIP  RGRIN" 

155  K=K>1 
160  INPUTR* 

170  PR I NT" T 
175  IFA$="F"THEN50 

180  IFK=2THEH195 

181  PRINT 
132  PRINT 

1 85  PR  I  NT  "  VOU  FL I PPED  THE  CO  I N  K-l;  "TIMES1-” 

186  PRINT 

187  PR  I  NT  "HAD"  ;R;  "Ji  HERDS" 

188  PRINT 

189  PR  I  NT "  AND " ;  B "  V.  TR I LS " 

190  PRINT 

191  PRINT 

192  PRINT 

193  PRINT 

194  PRINT 

195  PRINT "THANKS  FOR  PLRVING. BVE" 

200  END 
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There  are  few  pints  you  can  learn  from  examining  this  program.  Up  to  line 
100,  there  is  nothing  new.  Line  1 10  (IF  K  =  1  THEN  150)  bypasses  all  the 
percentage  computation,  because  there  is  no  need  for  it  if  you  have  only 
flipped  once.  Lines  1 1 1  and  1 12  multiply  the  numbers  of  heads  and  tails  by 
100,  then  divide  by  the  total  number  of  flips. 

Line  113  adds  the  two  “percentages"  together,  and  if  they  equal  101 
(which  can  only  happen  if  100*H/K  happens  to  be  something  point  five)  1 
is  subtracted  from  the  HEADS'  percentage,  just  to  make  the  two 
percentages  add  up  to  100.  Line  180  (IF  K  =  2  THEN  195)  is  used  if  the 
player  decides  to  stop  after  two  flips.  The  information  given  by  lines  185  to 
189  is  only  of  interest  if  the  coin  has  been  tossed  three  or  more  times.  Line 
195  is  just  a  friendly  way  of  ending. 


Whenever  you  have  room  in  the  memory,  it  is  a  good  idea  to  make  the 
program  more  "user-friendly"  and  make  the  "conversation"  as  natural  as 
possible. 


Number 

Crunching 


The  programs  we've  worked  on  so  far  have  ignored  the  great,  and 
fundamental  ability  the  VIC  has  to  work  with  numbers. 


Input  this  program  into  your  computer: 


10  PR I NT "BIRTHS  DEMONSTRATION" 

15  PRINT 

20  INPUT "GIVE  ME  fi  NUMBER"; A 
25  PR I NT 

30  PR  I  NT  "A  SECOND  NUMBER  ..PLEASE" 
35  INPUTS 

40  INPUT "AND  ONE  M0RE";C 

45  PR I NT 

50  PRINT "SO"; A 

60  PR I NT "MULTIPLIED  B¥";B 

78  PRINT” DIVIDED  EV";C 

80  PR I NT " EQUALS " ; A$B/C 
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Run  this  through  a  few  times,  with  different  values  for  A,  B  and  C.  Notice 
how,  in  lines  50  to  80,  when  using  PRINT,  the  computer  substitutes  the 
values  assigned  to  A,  B  and  C.  It  prints  the  number  rather  than  the  letter. 

Now,  change  lines  50  to  80  as  follows: 

50  K*<fl+C)AB+C-fl> 

60  PRINTK 
70 
80 


Run  this  a  few  times.  We  can  use  a  program  of  this  type  to  do  practically 
any  maths  problem,  no  matter  how  complex.  We'll  use  the  basic 
mathematical  ability  of  the  computer  to  produce  a  rather  interesting 
demonstration  program  you  can  run  next  time  you  have  a  couple  of  friends 
around. 

10  PR  I  NT  "DUMBER  JUGGLE" 

30  INPUT  "NAME  OF  PLAYER" ;A$ 

50  PRINT":]".: A*.:"  PLEASE” 

70  PR I NT "THINK  OF  A  NUMBER  AND" 

80  INPUT  "DOUBLE  IT";C$ 

120  PR  I  NT  "1H0W  ";A$;",ABB  FIVE" 

125  INPUTDS 

130  PRINT "m HEN  A$;  ",  SUBTRACT  SEVEN" 

140  PR I NT "AND  TYPE  IN  THE" 

145  INPUT "RESULT"; A 
150  K=<A+2V2 

180  PR  I  NT  "  rTr’OUR  NUMBER " ,  ft* ;  " ,  WAS " .:  K 


Now  that  did  not,  perhaps,  seem  very  startling,  although  it  is  fairly 
impressive  the  first  time  you  try  it  on  someone.  Note  how  the  strings  C$ 
and  D$  were  used  to  stop  the  program  until  you  pressed  RETURN,  how 
CLR  was  used  to  clear  the  screen  after  each  instruction,  and  how  the  final 
line  (180)  used  the  name  string  (A$)  and  the  assigned  variable  (K)  to  print 
out  your  answer. 

Before  you  read  on,  work  out  a  way  of  letting  the  program  give  you  the 
chance  to  have  another  go.  Type  your  version  in  at  the  end  of  the  program, 
and  see  if  it  works.  One  way  would  be  as  follows: 

200  PR I NT "ANOTHER  GO  "jfl* 

205  INPUTZ$ 

210  I FZf = " YES " THEH78 
230  END 
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Once  you've  run  through  this  program  a  few  more  times,  you're  probably 
pretty  bored  with  it.  Remember  that  a  computer  can,  within  the  limits  of  its 
memory,  store  a  great  deal  more  information  than  just  one  simple 
mathematical  manipulation.  This  game  program  becomes  a  great  deal 
more  interesting  when  you  interweave  a  second  set  of  instructions  into  the 
first,  so  a  second  player  can  "think  of  a  number"  and  so  on,  at  the  same 
time  as  the  first  person  is  doing  so.  I'll  list  the  whole  program. 

18  PRINT"3NUMBER  JUGGLE" 

20  PRINT 

30  PR I NT "NAME  OF  FIRST  PLAYER?" 

40  INPUTS* 

45  PRINT 

50  PR I NT "NAME  OF  SECOND  PLAYER?" 

60  INPUTS* 

65  PRINT"IFIRST  ";A* 

70  PRINT"THINK  OF  A  NUMBER  AND" 

75  PR I NT "DOUBLE  IT" 

8@  PRINT 

82  PRINT” AND  YOU  ";B* 

85  PR I NT "THINK  OF  A  NUMBER  AS  WELL" 

90  INPUT "AND  ADD  SIX  TO  IT“;C* 

100  PR  I  NT  "HAND  “ .:  B*J  " ,  " 

110  PRINT"!  WANT  YOU  TO  MULTIPLYVOUR  NUMBER  BY  THREE" 
115  PRINT 

118  PRINT" AND  YOU  ";A* 

120  INPUT  "ADD  FIVEMD* 

130  PRINT"HALSO  ";A* 

135  PR I NT "SUBTRACT  SEVEN" 

140  PR I NT "AND  TYPE  IN  THE  RESULT" 

145  INPUTS 
150  PRIHT"H";B* 

155  PRINT" I  WANT  YOU  TO  SUBTRACT" 

160  PR I NT "FOUR  THEN, TYPE  IN  YOURRESULT" 

170  K=(A+2)/2 

175  INPUTS 

180  L=<(B+4)/3>-6 

185  PRINT'TMJUR  NUMBER , " ;  A* , " WAS " ;  K 
190  PRINT 

195  PR I NT "AND  YOURS, ";B$, "WAS"; L 
206  INPUT "ANOTHER  G0";Z* 

210  I FZ*= " YES " THENGOT 065 
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215  PR  I  NT  "IT 

220  PRINT"OK,  RND  ";B$.«  "THANKS" 

225  PR I NT "FOR  PLflVING,BVE. .BVE, , " 

230  FOR I « 1 TO 1 000 : NEXT 
240  GOTO220 

Try  this  out  with  a  couple  of  friends,  and  watch  their  reaction.  I  want  to 
introduce  you  now  to  a  little  trick  which  can  add  a  lot  to  games  programs 
(even  though  it  will  probably  horrify  computer  purists).  The  VIC  works 
very,  very  quickly.  So  quickly,  in  fact,  that  its  responses  appear  to  be 
instantaneous.  Although  this  is  fine  for  "serious"  use  of  a  computer,  it 
detracts  in  some  measure  from  games.  You'll  find  that  games  are  more 
interesting  if  the  computer  appears  to  be  "thinking"  between  moves, 
rather  than  responding  as  soon  as  you  hit  RETURN.  So,  we  can  introduce 
a  subroutine  which  will  slow  things  down  a  bit. 

Add  the  following: 

240  FQRI-1TO5000 
250  NEXTJ 
255  PR  I  NT  "T 
260  RETURN 


Now,  go  through  the  program,  and  change  all  the  lines  which  have  the 
instruction  PRINT  "CLR”  to  GOSUB  240.  Now,  run  the  program  again. 
Notice  how  much  more  effective  this  seems,  with  just  the  right  delay  for 
the  computer  to  "think  and  reach  a  decision".  You  could  have  other 
numbers  in  line  240.  Try  it  as  FOR  J  =  1  TO  20000.  You'll  find  this  delay  is 
far  too  long.  So  long  that  you'll  get  irritated.  Try  other  numbers,  until  the 
delay  seems  about  right.  You  can  use  the  subroutine  delay  in  any  games 
you  like.  As  an  exercise,  try  adding  it  to  an  earlier  program,  like  RUSSIAN 
ROULETTE,  and  seeing  if  this  adds  to  the  playing  of  the  game. 


The  general  form  of  a  "game  delay": 


Line  number 
Line  number 
Line  number 
Line  number 


FOR  X  =  n,  TO  n2 
NEXT  X 
PRINT  "CLR" 

RETURN  (if  the  delay  is  a  subroutine) 


As  a  general  rule,  you  can  insert  a  delay  subroutine  whenever  you  would 
normally  clear  the  screen. 
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Writing  a  Program  — 
Some  General  Thoughts 

Most  books  on  programming  suggest  you  start  by  drawing  up  a 
"flowchart"  —  a  pretty  combination  of  circles,  diamonds  and  slanting 
rectangles  —  which  sets  out  the  path  and  operations  the  computer  will 
follow  to  execute  a  program.  In  theory,  this  is  fine.  But  in  practice,  the  time 
and  trouble  involved  is  probably  not  worth  it. 

It  is,  however,  essential  to  know  exactly  what  you  want  the  computer  to  do 
before  you  start  creating  a  new  program,  even  if  you're  not  quite  sure  how 
you  are  going  to  get  the  computer  to  carry  out  the  task. 

Sometimes  a  rough  sort  of  flowchart  —  just  writing  down  the  main  steps 
the  computer  will  take  and  then  linking  these  by  lines  and  loops  —  will  helpy 
to  clarify  your  thinking.  This  is  also  a  good  way  of  spotting  potential 
problems,  like  the  danger  of  setting  up  infinite  loops,  or  of  not  specifying 
the  nature  of  the  computer's  decisions  exactly. 

For  what  it's  worth,  I  work  as  follows: 

Having  worked  out  the  general  idea  for  a  game  (like  "player  thinks  of  an 
animal,  computer  tries  to  guess  which  animal")  I  then  just  think  about  the 
idea  for  a  while.  I  might  not  write  anything  down  for  even  a  day  or  more. 
Usually,  this  "thinking  time"  allows  me  to  work  out  roughly  how  the  core 
of  the  program  is  going  to  look.  Next,  on  paper,  I  write  down  this  core, 
starting  with  line  number  100.  This  ensures  there  is  plenty  of  room  at  the 
start  of  the  program  to  add  a  title  and  instructions,  define  constants,  set  up 
arrays  and  the  like. 

The  next  stage  is  to  feed  the  rough  program  into  the  computer  and  see  if  it 
does  what  it  is  meant  to  do.  Often  a  far  more  elegant  method  than  the  first 
rough  version  is  found  at  the  keyboard,  but  this  would  probably  not  have 
been  discovered  if  the  written  version  was  not  tried  first. 


If  you're  working  on  a  fairly  simple  game,  or  are  adapting  from  a  magazine 
or  book,  it  is  just  as  well  to  work  directly  on  the  computer,  but  keep  a 
notebook  handy  to  record  things  like  the  fact  that,  for  example,  string  A$  is 
for  the  player's  name. 

If  you're  writing  a  program  direct  on  the  keyboard,  and  you  want  to  add  a 
subroutine  which  will  eventually  be  at  the  end  of  the  rest  of  the  program, 
give  it  a  very  big  number  (like  5000).  It  can  easily  be  renumbered  afterwards 
(and  the  GOSUB  command  changed).  This  is  simpler,  and  more  elegant, 
as  well  as  Using  less  memory,  than  having  to  use  a  GOTO  to  jump  over  a 
subroutine  which  has  been  given  too  low  a  line  number. 
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If  there  is  a  phrase  that  you'll  need  the  computer  to  print  at  several  parts  of 
the  program,  such  as  "THE  SCORE  AT  THIS  POINT  IS",  assign  a  string  to 
this  phrase  as  soon  as  you  realise  you're  going  to  have  to  place  the  line  in 
several  places  in  the  program.  A  lot  less  memory  is  involved  in  the  line 
PRINT  B$  apparing  six  times,  than  in  six  of  PRINT  "THE  SCORE  AT  THIS 
POINT  IS".  If  the  information  to  be  included  several  times  is  longer  than 
one  line,  a  subroutine  is  probably  the  most  memory-efficient  device  to  use. 

Later  on  this  book  looks  at  a  program  which  makes  use  of  a  large  number 
of  strings  for  phrases  which  are  used  over  and  over  again,  and  when  you 
come  to  the  game,  you'll  see  how  efficient  a  process  this  can  be. 

Extra-Sensory 

Perception 

The  next  program  we  will  look  at  uses  the  computer  "greater  than"  and 
"less  than"  facilities  to  compare  two  numbers,  and  then  makes  a  decision 
on  the  basis  of  whether  one  number  is  less  than,  or  greater  than,  the  other. 

This  program  also  makes  use  of  many  of  the  things  we've  covered  so  far, 
including  the  IF  . . .  THEN,  the  counter  and  the  random  number  generator. 

Input  the  following  program: 

18  PRINT’TXjUESS  MV  NUMBER" 

20  PRINT 

45  PR I NT "WHAT  NUMBER, BETWEEN  1AHD  100“ 

46  PR I NT "AM  I  THINKING  OF?” 

50  J=INTa80*RNB<l»+l 

55  S=0 

68  S=S+1 

70  IHPUTA 

75  IFJ=ATHEN105 

80  I F A< JTHENPR I NT " H I GHER " 

85  I FA> JTHENPR I NT " LOWER " 

90  IFSXTTHEN60 
95  GOTO 120 

185  PRINT"V0U  ARE  RIGHT  I  WAS  THINKING  OF  ";J 
110  GOTO 140 

120  PRINT"TIME  IS  UP"  138PRINT"I  WAS  THINKING  OF  "  j  J 

i48  PR I NT "BO  VOU  WANT  ANOTHER  GO" 

145  INPUTH* 

150  PR  I  NT  "  T 

155  I FH$= " YES " THEN45 

160  END 
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Notice  how  the  core  of  the  program  (lines  50  to  95)  make  the  decision  on 
what  the  computer  is  to  do  next. 


It  is  possible  to  dress  the  program  up  a  bit,  by  giving  the  computer  your 
name,  and  —  as  you'll  see  —  giving  it  the  ability  to  award  the  player  a 
random  payoff  if  the  number  is  guessed  correctly.  Try  this  new  form. 
Some  of  the  original  program  remains,  but  certainly  lines  have  to  be 
replaced,  and  others  added. 

10  PRINT"D3UESS  MV  NUMBER" 

20  PRINT 
25  PRINT 

30  PR I NT "HI. -WHAT  IS  VOUR  NAME?" 

35  INPUTfl* 

40  PR  I  NT  "T 

45  PRINT"WHRT  NUMBER..  BETWEEN  lflNB  100, AM" 

46  PRINT"  I  THINKING  OF,  " .:  9$;  "?" 

50  J*INT < 100#RNB< 1 > )+l 

55  S=0 

60  S=S+1 

70  INPUTfl 

75  IFJ=flTHEN100 

80  I Ffl< JTHENPR I NT "HI GHER " 
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85  I FA> JTHENPR I NT " LOWER " 

90  IFS<5THEN€0 

95  GOTO 130 

100  K=INT<3*RHD<1)> 

185  PRINT"VES  I  WflS  THINKING  OF  I  HEREBV 

AWARD  VOU  THE  TITLE  OF"; 

110  I FK=8THENPR I NT " SMART  ALEC  OF  THE  YEAR, ";A$ 
115  I FK* 1 THEHPR I NT " MASTER  OF  E=8=P. ";A$ 

120  I FK=2THENPR I NT " JERK  OF  THE  KEYBOARD  ";A$ 
125  GOTO 148 

1 30  PR  I  NT  "  YOU  ARE  STUP I D , ,! ;  A$ ,  "  I  WAS  " 

135  PR  I  NT"  THINKING  OF".;J 
140  PRINT 

145  PR I NT “DO  YOU  WANT  ANOTHER  GO" 

150  INPUTN* 

155  PR  I  NT  "X 

160  I FN$= " YES " THEN45 

165  PR I NT "THANKS  FOR  PLAYING  ";R$ 

170  END 


When  you  run  this  program,  you'll  find  the  lines  105  to  120  may  wrap 
around  to  the  following  line  when  printing.  This  is  not  a  good  feature.  As 
an  exercise,  try  and  rewrite  this  section  so  the  lines  print  separately,  so  you 
do  not  run  the  risk  of  having  a  word  cut  in  half,  with  one  half  on  one  line, 
and  the  next  on  the  other. 
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Kill  the  Chopper 

It  is  possible  to  use  a  very  similar  core  to  produce  what  appears  to  be  a 
completely  different  program.  Input  the  following: 

10  PRINT" XHQPPER " 

20  PRINT 
30  PRINT 

40  PRINT'fl  DEADLY  CHOPPER  IS  HIDING" 

45  PRINT" 1  OF  16  TREES" 

50  PRINT 
55  PRINT 

60  INPUT "YOU  ONLY  HAVE  6  SHOTS, OK" ;A* 

70  PR  I  NT  "T 
75  0=0 

80  J*INTa6#RND<l>>+l 
85  PRINT"*  •" 

38  PR I NT "J  ♦  ♦  J" 

95  PRINT"-1  <  >  J" 

100  PRINT"==== " 

105  PRINT"*  •" 

115  PRINT 
120  PRINT 

125  PR I NT "GUESS  THE  NUMBER  OF  THE  TREE" 

135  PR I NT "YOU  WANT  TO  SHOOT  AT" 

140  G=G+1 
145  INPUTM 
150  PR I NT "3" 

155  IFM=JTHEN220 
168  IFG=6THEN195 

1 65  PR.  I  NT "  YOU  M I SSED , " ;  6-G ; "  TO  GO " 

178  PRINT 
175  PRINT 

188  I FMCJTHENPR I NT " TRY  TO  THE  RIGHT" 

185  I FM> JTHENPR I NT " TRY  TO  THE  LEFT" 

190  J.FG<6THEN35 

195  PRINT"AAPAAAAAARGH, = , . ,  " 

200  PRINT 
205  PRINT 

210  PR  I  NT  "HE  WAS  BEHIND  TREE  NUMBER";.! 

215  END 


34 


220  PRINT, “GOT  HIM” 

225  PRINT"-1  *«  O" 

229  PRINT, "GOT  HIM" 

230  PRINT"  #" 

235  PRINT 

240  PRINT 
245  PRINT 

250  PR I NT" PRESS  2  FOR  ANOTHER  GO" 
255  PR I NT "OR  4  TO  CHICKEN  OUT" 

260  GETT$ 

265  IFT$="2"THEN70 
270  I FT ♦<> " 4 " THEN260 
275  PR  I  NT  "T,  "CHICKEN" 

280  END 


The  idiotic  appearance  of  the  "chopper”  was  chosen  at  random.  (It  was 
named  after  my  dog.)  Make  up  your  own  name  and  appearance  for  your 
beastie  (making  sure  its  "dead"  version  looks  vaguely  like  a  deflated 
version  of  the  live  creature).  You  can  also  alter  the  value  of  J  (the  number 
of  trees)  and/or  G  (the  number  of  shots  you  get  before  being  killed). 

This  framework  can  also  be  used  for,  say,  vultures  hiding  in  nests, 
poisonous  snakes  in  holes,  or  even  unfriendly  aliens  in  space,  lurking 
behind  asteroids.  The  "conversation"  parts  of  the  program  can  also  be 
altered  to  what  ever  form  you  choose. 

A  little  gimmick  you  can  add  to  this  (and  any  other  program  you  like 
assuming  you  have  enough  money  for  it)  is  to  get  the  program  to  ask  the 
player's  name.  You  work  out  a  subroutine  which  ensures  the  computer  will 
only  play  with  you  (or  with  people  fortunate  enough  to  share  your  name). 
If  any  other  name  is  fed  in  when  the  computer  asks  who  is  playing,  it  goes 
straight  to  END.  As  an  exercise,  work  out  such  a  subroutine  and  add  it  to 
your  version  of  CHOPPER. 

Now  you've  probably  thought  you  could  produce  a  better  looking  beastie 
than  the  CHOPPER  of  mine.  Enter  and  run  the  following  program,  to  see 
just  how  many  graphical  alternatives  you  have: 

10  F0RJ=96T0127 

20  PRINTJ.:”  ";CHR$<J>,J+64; "  ";CHR*< J+S4) 

30  F0RN=1TO2000 : NEXT 
40  NEXT 
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You  can  slow  the  program  down  even  more  by  holding  down  the  CTRL 
key  while  running. 

As  well  as  seeing  the  different  symbols  you  have  at  your  disposal  (all 
created  by  PRINT  CHR$(X))  you  can  learn  from  the  above  program  two 
things: 

1 )  In  line  30,  you  can  join  two  lines  together  with  a  colon;  and 

2)  You  do  not  need  to  add  a  variable  name  after  NEXT  (lines  30 
and  40) 

Now,  re-write  CHOPPER  using  your  own  choice  of  graphics  to  create  a 
better  looking  deadly  monster. 

Days  of  Our  Lives 

Let's  go  back  now  to  number-crunching,  and  have  a  look  at  a  program 
which  gives  interesting  (and  sometimes  scary  or  absurd)  information  on 
how  long  the  player  has  to  live.  A  little  later  on  in  this  book  is  a  program 
designed  to  give  a  proper  look  at  life  expectacny,  but  that  program  is  a  little 
more  complicated  for  now.  This  program  —  DAY  OF  OUR  LIVES  — 
produces  a  pretty  good  demonstration  of  your  computer,  and  the  less 
mathematical  of  your  friends  will  be  convinced,  yet  again,  that  you  are 
some  kind  of  genius. 

What  the  program  does,  in  essence,  is  work  out  approximately  how  old  the 
player  is  in  days,  and  compares  this  with  average  life  expectancy  (67  A 
years  for  males,  7414  for  females).  It  also  assumes  the  player  sleeps  eight 
hours  a  night.  Input  the  following  program  and  run  through  it  a  few  times. 
Then  read  the  discussion  which  follows  the  program  listing. 

10  PR  I  NT  "TO  VS  OF  OUR  LIVES” 

20  PRINT 

30  PR I NT "HI  WHAT  IS  VQUR  NAME" 

35  INPUTfl* 

40  PRINTH3DK#LETS  WORK  OUT  SOME" 

50  PRINT" INTERESTING  THINGS  ABOUT  VOU  ";A* 

55  INPUTS* 

60  PRINT’THOW  OLD  ARE  VOU  IN  YEARS" 

65  INPUTA 

70  INPUT "AND  MONTHS" JB 
80  K=365*A+30*B 
90  PRINT" WOU  ARE  ";X 
95  PRINT "DAYS  OLD  ";A* 

100  PR I NT "ARE  YOU  FEMALE" 

105  INPUTD* 
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ii0  print” nr 

115  I  FB$= !t  VES  ”  THEN !  30 


120  V~24637-K 
125  GOTO 135 
130  V-27192-K 

135  PRINTA$; WOU  HAVE" 

136  PR  INTV; 15  DR  VS 15 

138  PR  I  NT” TO  LIVE-BASED  ON  STATISTICS’5 


140  INPUTE$ 

150  PRINT” □’VOU  HAVE  SLEPT  FOR  ABOUT” ;  IHKX/3) 
160  INPUT”  DA  VS  SO  FAR” ;F$ 

170  PR  INTEND  WILL  SLEEP  FOR  ABOUT”;  INK  V/21> 
175  PR  I  NT”  WEEKS  OF  VOUR” , ”  REMAINING  LIFE” 

180  INPUTS# 

190  PR I NT” □IS  THERE  ANVONE  ELSE  THERE  WHO” 

195  PR I NT” WOULD  LIKE  A  GO,” 

198  PRINTA$ 


206  INPUTHJ 

210  I FH$~ ” VES ” THENRUN 

215  PR I NT” OK  BVE,”;R$ 


If  you  were  thinking  about  what  you  were  entering  into  the  computer,  you 
probably  have  a  pretty  good  idea  of  what  each  line  and  command  was  for, 
but,  if  not,  look  at  it  on  your  screen  and  follow  through  this  next  section, 
line  by  line  with  your  program. 

First  of  all,  of  course,  the  program  got  your  name  (A$),  then  stopped  at 
line  50  waiting  for  you  to  press  RETURN  in  order  for  the  program  to 
continue  (and  clear  the  screen  at  line  60).  This  stopping  of  the  program,  as 
you  learned  earlier,  does  not  do  anything,  but  makes  the  program  much 
more  interesting  to  run  than  supplying  all  the  information  at  once. 

The  program  obtained  your  age  in  years  (A)  and  months  (B),  then  worked 
out  what  this  was  in  days  (line  80,  which  assumed  there  were  30  days  in  a 
month).  Next,  in  line  90,  the  computer  told  you  what  this  figure  was  (X). 
The  question  in  line  100  —  ARE  YOU  FEMALE?  —  is  needed  because 
males  and  females  have  different  life  expectancies.  If  D$  (the  answer  to  the 
line  100  question)  is  YES,  the  computer  goes  to  line  130,  where  it  subtracts 
your  age  in  days  from  the  life  expectancy  (74  Vz  years  converted  to  days) 
for  females  born  after  1961  (it  is  only  half  a  year  less  for  females  born 
1951-1960).  If  the  answer  is  not  YES,  the  computer  moves  to  the  next  line 
(120)  and  subtracts  your  age  in  days  from  24,637  days,  the  life  expectancy 
for  males  born  after  1960  (again,  it  is  half  a  year  less  for  males  born 
1951-1960). 
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Line  135  prints  how  many  days  after  are  left.  Lines  150  and  160  give  the 
number  of  days  slept  so  far  (your  age  in  days,  divided  by  three),  assuming 
you  sleep  eight  hours  a  night.  Then  the  computer  takes  your  remaining 
expected  days  (Y),  divides  this  figure  by  three  (to  get  the  days  spent  in 
sleep)  and  then  divides  this  by  seven  to  convert  this  figure  to  weeks. 
Actually,  as  you  can  see,  the  program  simply  divides  by  21  (ie  3  x  7). 

Lines  1 90  to  21 0  ask  if  someone  else  wants  a  go,  and  if  so,  goes  right  back 
to  line  30,  where  the  string  A$  is  ready  to  be  assigned  to  the  new  name.  If 
there  is  no-one  else  to  play  the  computer  proceeds  to  the  end  of  the 
program. 

If  you  feel  like  experimenting,  there  is  no  reason  to  stick  with  the  program 
as  I've  written  it.  Let  it  ask,  for  example,  if  the  player  is  male  (changes  lines 
100  to  130).  Instead  of  the  somewhat  unimaginative  farwell  (line  215)  you 
might  wish  to  put  in  some  mournful  line  like: 

WELL,  A$,  I  GUESS  YOU'D  BETTER  RUN  OFF  AND  MAKE  THE  MOST 
OF  THE  Y/30  MONTHS  YOU  HAVE  LEFT  TO  LIVE. 

You  could  also,  of  course,  add  a  delay  subroutine  everytime  CLR  appears 
in  the  program.  By  all  means  experiment  with  the  program,  and  put  your 
own  personal  stamp  on  it.  By  doing  this,  you'll  gain  far  more  knowledge 
about  programming  than  you  will  just  by  feeding  in  the  programs  in  this 
book,  line  for  line,  and  then  leaving  them  this  way. 


If  you'd  like  to  work  out  a  whole  new  program  based  on  the  core  of  this 
program,  feed  the  following  program  into  your  computer,  and  then  work 
around  it  as  you  choose. 

10  PR I NT "HHOW  OLD  ARE  VOU  IN  YEARS" 

15  INPUTA 

20  INPUT "AND  MONTHS" ;B 

30  X=365#A+30#B 

40  INPUT "ARE  YOU  FEMALE". :A$ 

50  IFA$="YES"THEN80 
60  V=24S37-X 
70  GOTO90 
80  V=27192-X 

90  PRINT’TJt'GU  ARE"  ;X,  "DAYS  OLD  AND" 

100  PR I NT "HAVE  ABOUT" ;V, "DAYS  TO  LIVE," 

110  PR I NT "BASED  ON  STATISTICS" 

120  PRINT  “YOU  HAVE  SLEPT  FOR" ,  "ABOUT" ;  I  NT  (X/3) 
130  PR I NT "DAYS  SO  FAR,", "AND  WILL  SLEEP" 

140  PR I NT "FOR  ABOUT"; I NT <V/21), "WEEKS  OF" 

150  PR I NT "YOUR  REMAINING  LIFE" 


38 


Toying  with  the  Muse 

To  make  a  change  from  working  with  numbers,  here  is  a  program  that  — 
after  a  fashion  —  writes  poetry.  Most  of  the  poems  it  comes  up  with  are 
pretty  awful,  but  from  time  to  time  you'll  get  a  real  gem.  And  even  the 
worst  efforts  of  the  computer  are  not  as  bad  as  some  modern  poetry 
published  today. 

The  heart  of  this  program  is  our  old  friend  the  random  number  generator. 
Input  the  program  as  it  appears  below,  and  run  it  several  times.  Then  read 
the  notes  that  follow  the  listing.  (Note  that  there  is  a  space  just  inside  the 
quote  marks  in  the  "seed-phrase''  lines  following  the  command  PRINT.) 

10  INPUT "USERS I BE  POETRV"  :  fi$ 

30  PR  I  NT  "T 

35  FORI=1TO10+INT < 1 1#RNB< 1 ) ? 

40  JaINT<21#RNB< 1 >  >+l 
50  IFJ<5THENPRINT- PRINT 
60  IFJ=5THENPRINT" . . . " ; 

70  I F J*6THENPR I NT " SUN " 

80  I F J =7THENPR I NT " SRNB " 

30  I F J=8THENPR I NT " SERGULLS " 

100  I FJ=9THENPR I NT " WRVES  "J 

110  I F J= 1 0THENPR I NT " ROCKS 

120  I F J =11 THENPR I NT " SER WEED 

130  I F J= 1 2THENPR I NT " HOT  "j 

140  I F J= 1 3THENPR I NT " OR I TTV  “j 

150  IFJ=1 4THENPR I  NT "  BERT  I NG  .•  BERT  I NG 

160  I F  J=  1 5THENPR I  NT "  HRR3H 

170  I F J= 1 6THENPR I NT " HOURS  PRSSING  "j 

180  I F  J=  1 7THENPR I  NT  "  ECHOED  OVER 

190  I F J= 1 8THENPR I NT " BR I GHTLV  BREW  "j 

200  IF J=1 9THENPR I NT " BRERMLV  EASED  "J 

210  I F J=20THENPR I NT " SHRBOWEB  OVER  " i 

220  IF>21THENPRINT"YET  AGAIN  "j 

230  NEXT 

Note  you  can  use  ?  instead  of  PRINT. 

When  you  run  this,  you'll  be  quite  pleased  (or  at  least  I  was  when  I  first 
wrote  it)  to  find  out  how  often,  just  by  chance,  quite  attractive  poems(l) 
are  written  by  the  program.  The  decisions  on  where  to  place  the 
semicolons  (;),  which  tell  the  computer  to  print  the  next  words  on  the 
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same  line,  were  made  partly  by  running  the  program,  and  just  seeing  how 
the  words  fell,  and  also  by  the  general  decision  that  half  the  nouns  (such  a 
SUN,  SAND  and  SEAGULLS)  would  end  a  sentence,  that  is,  would  not  be 
followed  by  a  semicolon.  I  also  decided  that  adjectives  (as  in  lines  130  and 
160)  would  always  allow  for  a  word  to  follow  them,  and  that  about  half  the 
other  "seeds''  (lines  170  to  220)  would  do  the  same. 

By  looking  at  the  program  listing  you'll  see  the  lines  50  to  220  make 
decisions,  based  on  the  random  number  generated.  Line  60  ensures  that, 
just  under  5%  of  the  time,  will  be  printed.  Line  20  prints  two  blank 
lines,  just  under  15%  of  the  time,  and  the  other  lines  direct  the 
hardworking  computer  to  print  one  of  the  "seeds"  just  over  80%  of  the 
time.  The  proportions  were  worked  out  by  running  the  program  over  and 
over  again  and  adjusting  the  lines  until  —  the  majority  of  the  time  —  a 
pleasant  poem  layout  resulted. 

The  kind  of  poem  the  program  writes  depends,  as  you  can  see,  almost 
entirely  on  the  words  placed  in  the  PRINT  lines.  The  best  way  to  decide  on 
the  words  to  go  in  the  PRINT  statements  is  to  pick  one  topic,  and  then 
make  every  word  and  phrase  relate  to  this  topic. 


The  original  POETRY  program  was  written  when  I  was  on  holiday,  and 
after  producing  about  20  SEASIDE  POEMS,  I  decided  to  input  some  words 
and  phrases  about  the  city  where  the  program  was  written.  The  changes  in 
the  program  produced  some  remarkably  effective  poems  (plus  a  generous 
crop  of  duds).  If  you  want  to  see  how  it  works,  change  the  lines  using  the 
following  words: 


10  "SALZBURG  POETRV" 

86  "BAROQUE  TOWERS  t!; 

90  "MOUNTAIN  VISTAS 

100  “MUSIC  BV  MOZART  51 ; 

110  "FORTRESS 

120  "COBBLED  STREETS 

130  "TIMELESS 

148  "BELOVED 

158  "MEMORIES  IN  STONE 

160  "STEADFAST 

178  "TRADITIONS  RELIVED  n 

180  "ECHOED  15 ; 

190  "COPPER  DOMES 
208  "DREAMING 
210  "SHADOWED  OVER 
228  "FAINTLV  WHISPERED 
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Try  writing  a  program,  using  words  and  phrases  based  on  the  last  place 
you  spent  a  holiday  in,  or  pick  a  topic  like  "clouds",  "kittens"  or  "vintage 
cars"  and  see  what  you,  the  computer  and  the  Muse  can  create.  Here  is 
part  of  one  poem  written  from  a  set  of  words  and  phrases  about  London 


...TOURISTS  CROWD  RLWflVS  MOVING 
RUSHING, PUSHING  I  HAVE  SEEN  IT 
BIG  BEN  CHIMES, AND  RIVER  THAMES 
CATHEDRAL  SPIRES 

ALL  BUT  FORGOTTEN  RUSHING,  PUSHING 
PIGEONS  IN  TRAFALGAR  SQUARE 
I  HAVE  SEEN  IT 

AT  LAST,  SUN,  RIVER  THAMES 
TIMELESS 
I  HAVE  SEEN  IT 

Not  very  brilliant,  I  guess,  but  acceptable.  The  "seeds"  for  this  poem  are: 

10  "POEMS  OF  LONDON  TOWN" 

20  "BOBBIES  " 

30  "TOURISTS  CROWD 
40  "PIGEONS  IN  TRRFALGER  "; 

50  "CHAOS" 

60  "AT  LAST , SUN 
70  "STREETS  OF... 

80  "TIMELESS" 

90  "ALL  BUT  FORGOTTEN 
100  "MEMORIES  OF  MAJESTV, " 

110  "RIVER  THAMES  "J 
120  "BIG  BEN  CHIMES, AND 
130  "RUSHING, PUSHING  " j 
140  "ALWAYS  MOVING," 

158  "CATHEDRAL  SPIRES" 

160  "GRAY  RAIN  FALLS  ON..."; 

178  "I  HAVE  SEEN  IT" 

180  "MANY  TIMES" 

Notice  how,  in  this  program,  link  words  like  AND  and  ON  finish  some  lines. 
Here  is  part  of  another  poem  from  yet  another  set  of  words: 


GRAVEYARDS  ABOMINATIONS  RELIVED 
DARK, DARK  SHRINGKING  WITCHES  CACKLE 
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ECHOED  CHILL  OF  ODDNESS  CHANCES  LOST 

SHRINKING  CALLING ,  CALLING, ,  GRA  VEYARDS 

ECHOED  CALLING,  CALLING 

DEATH  IS  NEAR, SAY  WITCHES  CACKLE 

TURN  AND  REACH  FOR 

DARK, DARK  WITCHES  CACKLE 

SKELETONS  RATTLE 

GRAVEYARDS 


The  "seeds"  are  as  follows: 

10  "BLACK  SABBATH  POETRY" 

20  "GRAVEYARDS  "i 
30  "SKELETONS  RATTLE" 

40  "CHILL  OF  OBNESS 
50  "WITCHES  CACKLE" 

60  "HOPE  NOW  DEAD  "J 
70  "CHANCES  LOST 
80  "TIMELESS" 

30  "DARK, DARK 

100  "MEMORIES  OF  PAIN, " 

110  "SHRINKING 

120  "ABOMINATIONS  RELIVED  " 

130  "ECHOED  "; 

140  "CALLING, CALING,"; 

150  "DEATH  IS  NEAR, SAY 
166  "SCREAMS  ARE  "J 
170  "TURN  AND  REACH  FOR 
180  "AGAIN, AGAIN" 
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Hunting  on  a  Grid 

There  are  many  games,  with  names  like  HUNT  THE  HURKLE  or  BURIED 
TREASURE  or  DEPTH-CHARGE,  which  are  based  on  trying  to  guess  the 
location  of  one  or  more  points  on  a  grid.  Each  location  is  specified  by 
quoting  the  co-ordinates  of  the  point.  To  start  our  investigation  of  these 
games,  input  the  following  program,  which  sets  up  a  very  simple  game  of 
this  type. 

10  PRINTurHUNT  GAME” 

20  X*INT(10#RNB(1))+1 
30  Y*INT<10#RND<1))+1 
35  PRINT 

40  PRINT"fl  FROG  IS  HIDDEN  ON  A  10  *  10  GRID" 

50  PRINT"V0U  HAVE  10  GUESSES  TOFIND  IT" 

60  PRINT" INPUT  VOUR  GUESS", "PRESSING  RETURN" 

70  PR I NT "AFTER  EACH  DIGIT,", "TWO  DIGITS  ARE" 

80  PR I NT " NEEDED , THE  FIRST  ONE  YOU  INPUT" 

90  PR I NT "MUST  BE  FOR  THE" , "H0R020NTAL  CO-ORDINATE" 

108  FORJ=1TO10 

110  INPUT"FIRST  NUMBER"; A 

140  INPUT "SECOND  NUMBER” ;B 

160  IFA=XANDB=YTHEN240 

190  PRINT, "TRY  AGAIN" 

200  NEXTJ 

210  PR I NT "END  OF  GAME" 

220  PR I NT "FROG  HIDDEN  AT";X;",";Y 
238  END 

240  PR I NT "YOU  HAVE  FOUND  IT" : PRINT : PRINT 
245  FORI=1TO1000 
248  NEXT 
250  GOTO240 


Once  you've  played  this  a  few  times,  you'll  realise  that  you're  really 
"shooting  in  the  dark"  when  trying  to  guess  the  frog's  location,  and  there 
is  no  feedback  as  to  how  close  you  are. 

You  can  add  the  following  lines  to  give  you  an  idea  of  how  you're  going: 

170  IFfl=XflHDBOVTHENPRINTfl;  “IS  RIGHT/1  j B;  “ IS  NOT" 

1 80  I  FflOXflNDB*  VTHEHPR I  NTfl  /‘IS  WRONG  >  “  i  B  ;n  I S  R I GHT  “ 


Add  these  lines,  and  run  the  program  a  few  times.  You  can  then  add 
another  line  to  give  the  player  more  information: 
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175  IF>6THENPRINTnCLUE:  DIGITS  fTODDED«MJ  X+V 


Of  course,  many  other  features  can  be  added.  Here's  a  version  of  the  hunt 
game  which  allows  the  player  to  select  the  size  of  the  grid,  and  gives  clues 
in  terms  of  direction. 

18  F'RINT'THJNT  THE  SPIDER" 

20  PRINT 

30  PRINT" IN  THIS  GAME  A  SPIDER  WILL  WEAVE" 

40  PR I NT "A  WEE  AND  HIDE  ON  IT": PRINT 

50  INPUT "HEIGHT  OF  WEB";X 

70  INPUT "AND  WIDTH" ;V 

80  PRINT  "IT 

90  A=  INK X#RND <!>)+! 

100  B= I NT  C  YfcRND  <  1  >  > + 1 
110  F0RJ-1T05+INT <X#Y/5) 

120  PR I NT "THE  SPIDER  IS  HIDING  ON  A" 

130  PRINT*.:  "BV" ; V;  "WEB.  WHERE" ,  "  IS  IT?" 

1 40  PR I NT : I NPUT " VERT I CAL " J C 
150  I NPUT "HORIZONTAL" > D 
156  PR  I  NT  "T 
160  IFC=AANDD=BTHEN340 

165  PR  I  NT  "  GUESS  HUMBER " J , "  WAS " ;  C ; " ,  " ;  D ; "  AND  WAS  ” 
170  PR I NT" WRONG. TRV  TO  THE" 

180  I FOATHENPR I  NT "  NORTH 
190  I FC-CATHENPR I  NT "  SOUTH  "J 
195  IFD<BTHENPR I NT " EAST " 

200  I FD>BTHENPR I NT " WEST " 

210  PRINT 
220  PRINT 
240  NEXTJ 

250  PR  I  NT  "GAME  OVER",  /'SPIDER  WAS  AT  "JfiJ'VlB 
280  I  NPUT  "ANOTHER  CAMERA* 

300  PRINT’ "T 

310  I F A$= " VES " THENRUN 

320  PR I NT "THANKS  FOR  PLAYING" 

330  END 

340  PR I NT "YOU  FOUND  THE  SPIDER  IN" ; J; "TRIES" 

350  GOTO280 
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Slot/Fruit  Machines 

Once  you've  paid  for  your  computer,  bought  some  software  (and  this 
book)  and  possibly  invested  in  some  additional  memory,  your  wallet  may 
be  getting  a  little  light.  Here's  a  program  which  you  can  use  to  get  a  little 
money  out  of  your  richer  friends. 

The  random  number  generator  (of  course)  can  easily  be  used  to  simulate  a 
slot  machine,  or  fruit  machine,  game.  A  very  simple  program  of  this  type, 
with  two  "fruits"  could  be  as  follows: 

10  PRINT”r3SL0T  MACHINE” 

20  05 
30  fl=0 
40  B=0 

50  F0RJ=1T02 
60  B-INT<2#RNDa>> 

70  IFD*0THENU0 
80  A=A+1 

90  PR I NT /’ORANGE" 

100  GOTO 130 
110  B=B+1 

120  PRINT, "CHERRV" 

130  NEXTJ 

140  IFA=2ORA=0THENOC+2 

150  IFA=1THENC=C-1 

160  IFCX1THEN230 

170  IFO10THEN250 

180  PRINT" VOU  NOW  HAVE  $";C 

190  PR I NT “PRESS  RETURN  FOR  NEXT  GO" 

200  INPUTE* 

210  PR  I  NT  "T 
220  GOTO30 

230  PR I NT "VOU  ARE  BUST": PRINT 
235  FORI=1TO1000 
233  NEXT 
240  GOTO230 

250  PRINT" VOU  HAVE  BROKEN  THE  BANK": PRINT 
255  FORI=1TO1000 
258  NEXT 
260  GOTO250 

Input  this  program  and  run  it  a  few  times.  It  works  as  follows:  Line  20  sets 
the  counter  for  ORANGEs(A)  at  0,  and  line  30  sets  the  CHERRY  counter 
(B)  at  0.  Your  money  is  C,  and  line  20  sets  it  at  $5  to  begin  the  game. 
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Each  play  of  the  game  requires  two  random  numbers  to  be  generated. 
These  are  counted  by  line  50(and  130)  and  generated  by  line  60.  If  the 
random  number  is  0,  program  control  moves  to  line  1 10  where  B  become  B 
+  1  and  CHERRY  is  printed.  Control  then  goes  back  to  line  50.  If  the 
random  number  is  1,  A  becomes  A  +  1 ,  and  the  computer  prints 

ORANGE  before  going  back  to  line  50  for  the  next  number. 

After  two  numbers  have  been  generated,  and  the  "fruits"  printed  out,  the 
computer  checks  to  see  if  both  are  the  same  (if  they  are,  A  will  equal  2  or  0) 
and  if  so,  adds  two  to  your  money  (that  is,  lets  C  =  C  +  2).  If  the  fruits  are 
not  the  same,  the  computer  takes  $1  off  you  (that  is,  lets  C  =  C  - 1 ).  Can 
you  see  how  the  computer  knows  the  two  fruits  were  different? 

Next,  it  prints  out  your  stake  (line  160).  The  computer  checks  this  amount. 
If  it  is  less  than  £1 ,  control  goes  to  line  230  to  print  YOU  HAVE  BUSTED.  If 
it  is  greater  than  10  control  moves  to  line  250  where  the  computer  prints 
YOU  HAVE  BROKEN  THE  BANK.  If  neither  of  these  conditions  are  true, 
the  computer  acts  on  the  next  line  (190)  which  instructs  you  to  press 
RETURN  for  the  next  go.  That  may  seem  a  little  complicated  spelt  out  in 
detail,  but  you  should  be  able  to  follow  it  through  on  the  program. 

The  splendid  result  of  breaking  the  bank  is  well  worth  trying  to  win. 

Once  you're  sure  you  understand  the  workings  of  this  program,  write  your 
own  version  with  three  fruits,  and  thus  make  it  more  like  a  "real"  slot 
machine.  You'll  have  to  add  some  lines  between  others  in  my  program  to 
do  this,  and  change  a  few  lines  completely.  I'm  not  going  to  give  you  a 
program  for  a  "three  fruits"  machine  as  you  will  benefit  far  more  from 
working  out  your  own  program  to  simulate  the  working  of  such  a  machine. 
And  it  is  far  more  fun  playing  a  game  with  a  program  you've  written 
yourself,  than  just  feeding  in  someone  else's  work. 

Once  you've  written  and  played  with  the  three  fruits  version,  read  on  to  see 
one  way  of  writing  a  four  fruits  slot  machine  (but  with  pretty  odd  fruit). 
Note  that  in  this  program,  different  winning  combinations  are  worth 
different  amounts,  and  generate  comments. 

5  P0KE36879,27 
10  PRINTnr3SL0T  MACHINE" 

30  PRINT 
40  PRINT 
50  PRINT 
60  PRINT 

70  INPUT “STARTING  STAKE «20>“;M 
90  PR  I  NT  "T 
100  f>0 
110  B=0 
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120  E=0 
130  F=0 
140  F0RJ=1T04 

150  ON  IHT<4*RNB<1>)  GOTO  228,250,280 
190  C=C+1 

208  PRINT" ^COMMODORE " 

210  GOTO300 
220  D=B+1 
230  PRINT"HVIC" 

248  GOTO300 
250  E=E+1 
268  PR  I  NT  "3120" 

270  GOTO300 
280  F=F+1 

290  PR I NT " ^COMPUTER " 

300  NEXTJ 

310  I FC*  1 ANBB= 1 flNBE* 1 flNBF* 1 THEN373 

320  I FC=4ORB=4ORE=4ORF=4THEN370 

330  I FC=3ORB=3ORE=3ORF=3THEN390 

350  M*M-2 

360  GOTO420 

370  M=M+10 

375  PR  I  NT  " 8JACKPOT " 

388  GOTO420 
390  M=M+2 

400  PR I NT "3  OF  R  KIND" 

420  IFW<1THEN490 
430  IFM>49THEN540 
432  PRINT 
435  PRINT 
437  PRINT 

440  PRINT"  WOU  NOW  HAVE  £";M 
445  PRINT 

450  INPUT "PRESS  RETURN  FOR  NEXT  3PIN":fl$ 
488  GOTO90 

490  PR I NT "END  OF  GfiME.VQU  ARE  BROKE" 
500  INPUT "ANOTHER  GflME"JB* 

520  I FB$S " VES " THEN60 
525  PRINT*™,  BYE  BYE" 

530  END 

540  PR I NT "YOU  HAVE  £";M",flNB" 

550  PR I NT "HAVE  BROKEN  THE  BANK" : PRINT 
568  GOTO508 
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Lost  in  Space 

We'll  return  now  to  the  HUNTING  ON  A  GRID  idea,  and  work  on  finding 
objects  which  are  located  on  more  than  two  axes,  that  is,  are  hidden  in 
three  (or  even  four)  dimensional  space.  Imagine  our  spider  is  hiding  inside  a 
cube,  each  side  of  which  is  X  units  long.  Each  point  in  the  cube  can  be 
specified  by  giving  three  co-ordinates:  height,  width  and  depth.  Before 
reading  on  to  see  how  I've  done  it,  try  to  work  out  a  program  in  which  a 
space  capsule  is  lost  inside  a  cube  of  space,  with  each  side  of  the  cube 
seven  kilometres  long. 

10  -PR  I  NT"  13  LOST  IN  SPACE" 

15  PRINT 

20  PRINT"VGU  HAVE  15  HOURS  TO  FIND  A  CAPSULE" 
30  PR I NT "LOST  IN  A  7KM  CUBE” 

40  PRINT /’OF  SPACE" 

50  A=INT (7#RND( 1 ) >+l 
60  B= I NT  <  7#RND ( 1 > )  + 1 
70  C=INT<7#RND<D>+1 
80  F0RJ-1T013 
35  PRINT 

90  PRINT" INPUT  3  SEARCH" >  "CO-ORDINATES" 

100  INPUTB,E..F 
110  PR  I  NT  "T 

130  IFA=BANBB=EANBC=FTHEN320 
140  PRINT 

150  PRINT" WRONG": PRINT 

160  PR  I  NT  "HOURS  OF  AIR  LEFT  '•  " ;  15-J 

170  PRINT 

180  PR I NT "MOVE:" 

190  I F A>DTHENPR I NT " UP 
200  I FR<DTHENPR I NT " DOWN  "; 

210  I FBOETHENPR I  NT  "  ACROSS 
220  I FCCFTHENPR I NT " FORWARDS " 

230  I FOFTHENPR I  NT  "  BACKWARDS  " 

240  PRINT 

250  I F J= 1 4THENPR I NT " DANGER-DEATH  IMMINENT" 

260  NEXTJ 
280  PRINT"?]" 

290  PR I NT "FAILURE-'L  >  "ASTRONAUTS  DEAD": PRINT 
300  PR I NT "CAPSULE  WAS  AT  ",A;B;C 
310  GOTO350 
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320  PRINT 

330  PR I NT "YOU  FOUND  THEM  WITH" 

340  PRINT16-J; "HOURS  OF  AIR  LEFT" 
350  PRINT 

360  INPUT "ANOTHER  MISSION" ;H$ 

380  PR I NT "IT 

390  I FH$= " YES " THEN20 

408  PR  I  NT "  FAREWELL BRAVE  CAPTAIN"; 

410  GOTO480 


Arrays 

Arrays,  and  the  use  of  the  DIM  (dimension)  statement  puzzle  many 
newcomers  to  BASIC.  The  DIM  is  used  if  you  want  to  set  up  a  list  with  a 
'name'  (the  name  is  a  letter  like  A,  B  or  whatever) .  For  example,  you  might 
want  the  number  1  to  1 5  in  the  list  named  A,  in  the  form  LET  A(0)  =  1 ,  LET 
A  (1 )  =  2  and  so  on  to  LET  A(14)  =  1 5.  To  tell  the  computer  you  need  an 
array  to  hold  these  elements  (1 ,2  and  so  on  to  15)  input: 

10  DIM  A(  14) 

The  figure  in  brackets  can  be  one  less  than  the  number  of  items  or 
elements  you  want  in  the  list  because,  in  BASIC,  an  array  contains  one 
more  element  than  the  number  you  place  in  the  brackets;  the  first  element 
is  A(0),  not  A(1 ).  However,  you  can  have  a  much  bigger  array  if  you  like, 
provided  you  don't  exceed  the  memory.  In  practice,  it  is  sufficient  to  put 
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the  number  of  elements  you  want  in  the  brackets,  'forgetting'  that  you  are 
actually  creating  an  array  one  element  bigger  than  you  need.  The  number 
inside  the  brackets  is  known  as  the  subscript,  and  an  element  of  the  form 
F(2)  or  K(9)  is  called  a  subscripted  variable. 

You  can  also  have  multidimensional  arrays.  This  means  arrays  with  more 
than  one  subscript.  Again  you  use  a  DIM  statement  to  set  them  up.  For 
example 

DIM  B<2,2> 

creates  a  two  dimensional  array  (the  dimension  is  the  number  of 
subscripts)  which  has  nine  elements.  These  elements  are  called  B (0,0), 
B(0,1 ),  B(0,2),  B(1 ,0),  B(1 ,1 ),  B(1 ,2),  B(2,0),  B(2,1)  and  B(2,2). 

When  using  large  arrays  it  is  often  better,  in  terms  of  memory  space,  to  use 
an  integer  array,  eg  DIM  B%(2,2)  which  creates  an  array  of  nine  integer 
elements. 

You  can  also  have  string  arrays.  DIM  AB$(3,1 )  sets  up  a  string  array  called 
AB$  with  eight  (  (3  +  1 )  x  (1  +  1 ))  elements. 

Here's  a  program  to  show  the  DIM  statement: 

10  DIM  FK10) 

20  FORJ=8TO10 
30  fKJ>=2*J 

48  PRiNT,,fl<,,;j;,,)=,,;fl(J) 

50  NEXTJ 

When  you  run  this,  you  will  get: 

A(0)  =  0 

Ad)  =  2. . .  and  so  on  to  ... 

A(10)  =  20 


Change  line  10  to  A(5)  and  run  the  program  again.  This  time  you'll  get  just 
A(0)  =  0. . .  A(5)  =  10.  The  program  stopped  at  this  point  (giving  an  error 
message)  meaning  that  the  sub-scripted  variable  required,  ie  J  =  6  to  J  = 
10  was  out  of  range.  Change  line  10  now  to  DIM  A(20)  and  run  the 
program.  You'll  find  you  get  exactly  the  same  result  as  having  DIM  A(10). 
As  I  said  before,  you  change  nothing,  in  practice,  by  having  a  larger  array 
than  you  actually  want.  Now  add  the  following  lines: 


10  DIM  FK10) 
60  INPUTS* 


70  F0RZ=0TG15 

80  LET  FKZ>=3*Z 

90  PRINT,,flC,,iZi,,)«,,;fl<Z) 

100  NEXTZ 

When  you  run  this,  you  find  the  same  A(0)  =  0  through  to  A(10)  =  20 
followed  by  the  symbol  asking  you  to  input  a  string  (or,  as  in  this  case, 
press  RETURN).  The  computer  will  then  display: 


A(0)  =  0 
A(1)  =  3 

. .  .down  to  . . . A(10 )  =  30 

The  error  code  will  be  displayed,  because  the  demand  made  on  the  array 
by  line  80  was  greater  than  the  array  defined  by  line  1 0  (that  is,  line  70  made 
the  next  Z  equal  11,  and  line  80  therefore  wanted  a  subscripted  variable 
called  A(1 1 )  which,  of  course,  it  could  not  find  because  the  array  only  had 
room  for  1 1  elements). 

Type  NEW  and  input  the  following  program,  which  uses  string  arrays: 

10  DIMfl$<10> 

20  FORflslTO10 
30  INPUTRttfl) 

40  NEXTfl 
50  PRINTS" 

60  FORR*1TO10 

70  PRlNT"fl$<".;a.;">  is  ";A$<fl> 

80  NEXTfl 

As  you  can  see,  you  can  have  many  different  strings,  each  of  which  may 
be  of  a  different  length. 

Now  follows  a  very  simple  HUNT  THE  HURKLE  program  using  the  DIM 
statement.  Input  the  program,  run  it  a  few  times,  then  read  through  to  find 
out  how  it  works. 

10  PRINT"DIM  SPIDER" 

20  DIMfl<4) 

30  DIMB<4> 

50  F0RG=1T04 
60  fl<G>=2 
70  B<G)=2 
80  NEXTG 
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90  K=INT<4#RND< 1 ) )+l 
100  L=INT <4#RND< 1,0+1 
110  fl<fO  =  l 
120  B<L)*1 
130  F0RD=1T05 

140  PR I NT "WHERE  IS  SPIDER, TRV  NUMBER". ;D 

150  INPUTT, V 

170  IFA<T>=1ANBB<V>=1THENPRINT"¥0U  FOUND  IT" 
180  IFA<T)=1ANDB<V)=1THENEND 
190  NEXTD 

200  PR I NT " SORRV , T I ME  IS  UP" 

210  PR  I  NT  "SPIDER  WAS  AT",K.:L 


Having  run  this  program  a  few  times,  and  examined  the  listing,  you  are 
probably  asking  yourself  what  was  achieved  by  using  the  DIM  statements 
which  could  not  have  been  achieved  without  them.  The  answer  is: 
Nothing.  However,  the  DIM  comes  into  its  own  when  you  want  to  hide 
more  than  one  object  on  a  grid,  without  creating  a  whole  set  of  co¬ 
ordinates  of  the  type  A  =  INT(4*RND(1))  +  1,  B  =  INT(4*RND(1 ))  +  1, 
C  =  INT(4*RND(1 ))  +  1  and  so  on,  to  put  the  first  hidden  object  at  A,B; 
the  second  at  C,D;  and  so  on. 


Before  we  look  at  this,  here  are  two  more  programs  which  hide  a  single 
object. 

5  PRINT".!  DIMMER  SPIDER" 

10  DIMA<2> 

20  DIMB<2> 

30  F0RO1T02 
40  A<C)=INT <4#RND< 1 ) )+l 
50  NEXTC 
60  FQRJ=1T07 

70  PR I NT "WHERE  IS  THE  SPIDER-  ATTEMPT" ;J 
80  F0RC=1T02 
98  INPUTB<C) 

100  NEXTC 

110  PRINTB<1>,B<2>; 

120  IFfla)=B<l)flNDA<2)=B<2)THEN200 
130  IFfi< 1 )=B< 1 >THEN220 
140  I FA  <  2 ) =B  <  2 ) THEN240 
150  PR I NT "NO" 
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160  IF J =5THEWGOSUB260 
170  NEXTJ 

130  PRINT"TIME  IS  UP. SPIDER  WPS  ATMACl);  A<2> 

190  GOTO205 

280  PRINT"VOU  HAVE  FOUND  IT" 

210  END 

220  PRINT, fl(l>; "IS  RIGHT" 

230  GOTO 170 

240  PRINT, A(2>; "IS  RIGHT" 

250  GOTO 170 

263  PRINT"HINT- LOCATIONS  ADD  UP  TO"; A<l)+A<2> 

270  RETURN 

If  you  like,  you  can  change  line  1 60  to  read: 

1 60  I  F.J=3ORJ=7THENGOSUB260 

This  just  reinforces  the  same  hint  when  J  =  7  as  when  J  =  3.  If  you  want 
the  'hint'  to  come  at  random,  you  could  change  line  160  to: 

1 60  I FJ*2#A < 1 > THENGOSUB260 

or  to: 

160  I F J=2*A  <  2  >  THENGOSUB260 

Another  version  of  this  line  is: 

1 60  I  F,T=7*RNB  ( 1  >  < JTHENGOSUB260 

This  final  version  is  probably  the  best,  because  it  means  that  the  closer  to  J 
=  7  you  get,  the  more  likely  you  are  to  be  given  a  hint. 

The  core  of  the  program  DIMMER  SPIDER  can  be  used  to  produce  a  far 
more  interesting  game,  and  in  this  program  we  will  introduce  a  new  BASIC 
function: 

10  DIMA<2> , B<2) 

20  PRINT’TFESKV  PIKSV" 

30  F0RC=1T02 
40  A0:)=INT(7*RND<1>)+1 
50  NEXTC 
60  F0RJ=1T01 1 
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70  PR I NT "WHERE  IS  PIKSV-RTTEMPT".; J 
80  F0RC=1T02 
90  IHPUTE<C> 

100  NEXTC 

110  PRINTB<1>;B<2> 

120  IFfi< 1 1 ) RNDR < 2 ) =B ( 2 > THEN208 
130  I Ffi  < 1 } =B  < 1 ) THEH240 
140  IFfi<2>=B<2) THEH250 
150  PRINT "NO" 

160  IF10*RNIK  1 KJTHENGOSUB260 
170  NEXTJ 

188  PR I NT "TIME  IS  UP. " :PRINT"PIKSV  WRS  flT"Jfl<l)Jfl<2) 

190  END 

200  PR  I  NT  "T 

205  F0RV=1T05 

210  PRINT 

220  NEXTY 

225  PR  I  NT "  YflY ..  CAPTURED " 

230  END 

240  PRINTfl(l);"IS  RIGHT" :0OTO170 
250  PRINTR<2>;  "IS  RIGHT"  :G0T0178 
260  G=INT<5*RNIK1>> 

278  IFG*0THENPRINT"HINT:LOCRTIONS  ADD  UP  T0"Jfl<l)+fl<2 
280  I FG* 1 THENPR I NT " H I NT : B I FFERENCE 

BETWEEN  LOCfiT IONS  IS " ; RBS (fi(l)-R<2)> 

380  IFGC2THENRETURN 

320  PRINT"!  WPS  flT"Jfl<l>;fl<2) 

330  PRINT"!  RM  MOVING" 

340  PR I NT "PRESS  RETURN" 

350  INPUTRS 
370  RUN 


Have  a  look  at  line  280.  The  function  ABS  stands  for  "absolute".  If  a 
number  is  positive  the  absolute  value  of  that  number  is  just  the  number.  If  a 
number  is  negative,  the  absolute  value  is  the  number  multiplied  by  - 1  (ie 
the  number  without  its  negative  sign).  If  you  leave  out  ABS  in  line  280,  the 
clue  will  be  so  specific  it  will  almost  certainly  give  the  location  away,  so 
ABS  makes  for  a  better  game.  Lines  200  to  220  perform  an  interesting  task. 
After  clearing,  the  screen  (line  200)  the  FOR/NEXT  loop  moves  the  letters 
to  be  printed  (line  225)  to  nearer  the  middle  of  the  screen.  This  makes  for  a 
more  attractive  display. 
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The  next  program  locates  a  number  of  objects  (10)  on  a  grid,  and  gives  a 
score  based,  of  course,  on  how  many  you  hit.  However,  if  more  than  one 
object  is  at  the  same  location  you  get  more  than  one  score.  The  program 
also  awards  you  a  "rating”  at  the  end. 


10  PR  I  NT 11  ERL  I ENS  +  ASTEROIDS” 

20  LETK=0 

30  BIMA<10},B<10),C<10}.-B<10> 

100  FORJ=1TO10 

110  A< J)=INT <4#RND< 1 ) )+l 

120  B< J)=IHT <4#RNB< 1 > )+l 

130  NEXTJ 

160  F0RZ=1TQ8 

170  PRINTCHR*«NT<32#RNB<1 ) >+96> ;  "SHOT" ;  Z 
180  INPUTC<Z> 

190  INPUTBCZ) 

200  PRINTC<Z>;B<Z> 

230  F0RJ=1T08 

240  IFR<J>=C<Z)ANBB<J)=B<Z>THENK=K+1 

250  IFA(J>=C<Z>ANBBOJ>=B<Z>THENPRINT"HIT  SCORE  :";K 

268  IFK=8THEN430 

270  NEXTJ, Z 

298  PR  I  NT  "T 

308  PRINT 

310  PR  I  NT  "MT I  ME  IS  UP" 

320  PRINT 

330  PRINT"V0U  HIT";K;  "ALIENS" 

340  PRINT 

350  PR I NT "MARKSMAN  RATING : " j INTC <K#l00>/< 1+3#RND< 1 > > > 
360  PRINT 

378  PRINT"THEV  ARE  HIBBEN  AT:-" 

380  PRINT 

390  FORJ»1TO10 

400  PRINTA<J).;B(J) 

410  NEXTJ 
420  ENB 
430  PRINT";!" 

448  F0RH-1T07 
450  PRINT 
460  NEXTH 

478  PRINT" VCMJ  GOT  THEM  ALL"; 
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480  F0RIMT028 

490  PRINTCHR$<  INT<32*R.NB<  1 )  >+96) ; 

500  NEXTU 
510  GOTO470 

You'll  notice  a  randomly  generated  character  before  the  word  SHOT  each 
time. 

To  print  the  character  corresponding  to  a  particular  number,  you  just  input 
PRINT  CHR$  (number  of  character).  The  "marksman  rating"  at  the  end 
adds  a  little  interest,  and  is  actually  related  to  your  skill  in  destroying  the 
aliens.  The  more  you  killed(K)  the  higher  your  score.  It  is  divided  by  1  + 
3*RND(1 )  just  to  make  it  a  little  more  interesting. 

Colour 

Let's  have  a  look  now  at  some  of  the  colour  graphics  functions.  Enter  the 
next  program,  run  it,  then  examine  the  listing  to  work  our  what  it  is  doing:- 

10  F0RJ=8T0127STEP17 
20  P0KE36879.J 
30  PRINr’^EXT  COLOUR” 

40  INPUTfl* 

50  NEXTJ 

This  shows  POKE  in  use  to  create  a  series  of  different  colours. 

Location  36879  is  one  of  the  VIC's  "SYSTEM  VARIABLES".  It  is  used  to 
store  two  pieces  of  information.  (1 )  The  colour  of  the  screen,  and  (2)  The 
colour  of  the  border.  By  incrementing  our  FOR/NEXT  loop  in  steps  of 
seventeen  we  are  changing  BOTH  the  screen-colour  AND  the  border- 
colour  together. 

Change  line  10  to  FOR  J  =  136  TO  248  STEP  16.  Now  notice  that  the 
screen  changes  but  the  border  doesn't.  Notice  that  eight  new  colours  have 
been  generated  —  orange,  light-orange,  pink,  light-cyan,  light  purple,  light 
green,  light-blue  and  light  yellow. 

To  work  out  what  number  you  have  to  POKE  into  36879  just  LET  S  =  the 
colour  of  the  screen,  and  LET  B  =  the  colour  of  the  border. 

Use  the  numbers  given  here: 

SCREEN  S  BORDER  B 

BLACK  0  BLACK  0 

WHITE  1  WHITE  1 
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RED 

2 

RED 

2 

CYAN 

3 

CYAN 

3 

PURPLE 

4 

PURPLE 

4 

GREEN 

5 

GREEN 

5 

BLUE 

6 

BLUE 

6 

YELLOW 

7 

YELLOW 

7 

ORANGE 

8 

LIGHT  ORANGE 

9 

PINK 

10 

LIGHT  CYAN 

11 

LIGHT  PURPLE 

12 

LIGHT  GREEN 

13 

LIGHT  BLUE 

14 

LIGHT  YELLOW 

15 

and  use  the  formula  16*S  +  B  +  8  to  combine  them.  Thus  to  get  an 
orange  screen  with  a  white  border  just  use  the  statement  POKE  36879, 
16*S  +1+8. 

Try  this: 

10  INPUT'TFIRST  COLOUR 11  ;S 
20  I NPUT" SECOND  COLOUR" ;B 
30  P0KE3S879; 16#S+B+8 
40  GOTO 10 

Run  it  and  input  number  from  the  tables. 

Now  change  line  30  to  POKE  36879,  16*S  +  B  (ie  without  the  plus  eight) 
and  RUN  it  again,  inputting  the  same  numbers.  Interesting  isn't  it? 

Not  it's  time  to  start  POKEing  into  the  VIC's  COLOUR  memory  map  area. 
Don't  worry  if  this  sounds  complicated  —  just  follow  through  what's  going 
on. 


10  FORJ*1TO505 
20  FRINT"tM; 

38  NEXTJ 

40  POKE38400+ 1 NT < 906&RND < 1>>, INT<8#RND< 1 > > 
30  O07O40 
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Line  10  to  30  just  fill  the  screen  up.  Line  40  is  the  interesting  one.  It  POKEs 
a  random  number  between  1  and  8  (this  represents  one  of  eight  different 
colours)  into  one  of  the  addresses  between  38400  and  38906.  These  are 
the  COLOUR  addresses  for  the  screen  -  one  address  for  each  print 
position.  Note  that  there  are  506  such  positions,  since  the  screen  is  22  x 
23. 

Now  try  this  one. 

10  PRINT  M I D*  < "  akflEIT ;  I  NT  <  6#RND  a )  > + 1 , 1 ) ; 

20  GOTO 10 


Line  10  is  rather  clever  —  the  first  part  selects  a  new  colour  at  random. 
Notice  how  the  function  MID$  is  used  to  select  a  single  character  from  the 
string  of  colour  controls. 

Strings  and  Ladders 

One  way  of  making  the  most  of  your  memory  is  to  use  strings,  assigned  at 
the  start  of  the  program,  for  phrases  which  you  intend  to  use  at  various 
parts  of  the  program.  The  following  game  SNAKES  AND  LADDERS 
shows  these  techniques  in  use. 

5  0$=" SCORE  IS" 

10  fl$=" SNAKE  " 

15  H$=" : 

20  B$=" LADDER  " 

25  K$="  WINS" 

30  L$=" WORTH  " 

40  PRINT"T;fl$;"S  AND  ";B*.:"S" 

50  INPUT "PLAYER  1";C* 

70  INPUT "PLAYER  2"iD$ 

90  PRINT"T0  START  GAME" 

100  A=0 
110  B=0 

130  INPUT "PRESS  RETURN" ;E$ 

150  GOSUB260 
155  K=0 
160  GOTO280 
165  A=A+E 

170  printc$;h$;m$;l$.;e 

180  PR  INTO*.;  A 
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190  PRINT 
195  IFR>19THEN363 
200  K=1 
210  GOTO280 
215  B=B+E 

220  printd$;h$;m$;l$;E 
230  printo$;b 

232  PRINT 

233  PRINT 

235  IFB>19THEN390 
240  PR I NT "FOR  NEXT  MOVE" 

250  GOTO 130 

260  FORS=1TOINT<3000#RN!K1>> 

265  NEXTS 
270  PR  I  NT  "T 
275  RETURN 

280  C=INT<5*RNB<D)+1 
290  IFC<3THENT=~1 
300  IF02THENT-1 
310  IFC<3THENM$=R$ 

320  IFC>2THENM$=B$ 

330  P=INT <6#RNB< 1) >+l 

^40  F=P*T 

350  IFK®0THEN165 
360  G0T0215 
365  PR I NT "n" 

370  PRINTC$;K$,.."  WITH". ifl-BJ  "POINTS" 

385  GOTO400 
390  PR  I  NT  "T 

395  PRINTB$;K$,,"  WITH" "POINTS" 

400  INPUT"RNOTHER  GRME";N$ 

420  PR  I  NT  "T 

430  I FN$= " VES " THEN90 

440  PR I NT "OK. BYE" 

450  END 

This  program  shows  quite  clearly  how  strings  can  be  used  to  save  memory 
(in  fact,  the  idea  was  carried  a  little  too  far,  just  to  make  the  technique 
plain).  There  are  a  few  other  things  in  the  listing  from  which  we  can  learn. 
Look  at  lines  290  to  320.  These  determine  if  the  player  will  get  a  SNAKE 
(and  a  negative  score)  or  a  LADDER  (and  a  positive  score).  If  line  280  had 
read  C  =  INT(4*RND(1 ))  + 1  there  would  be  a  pretty  good  chance  that  the 
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game  would  never  end,  because  each  players  gains  would  approximately 
equal  his  or  her  losses,  and  the  players  would  lose  interest  long  before 
somebody  happened  to  chance  a  win.  By  making  the  odds  in  favour  of  a 
ladder  (a  ladder,  and  positive  score  are  generated  about  60%  of  the  time) 
the  program  ensures  that  both  players'  scores  gradually  build  up. 

The  next  program  is  based  on  exactly  the  same  idea  as  SNAKES  AND 
LADDERS  but  takes  longer  to  play,  and  —  because  it  has  more  variables 
—  is  considerably  more  interesting. 

1  D*«"WLES  TO  GO" 

2  E$="fiLL  OK" 

3  F$-" SMASH" 

4  G$="C0PS" 

5  H$=" PUNCTURE" 

6  J$=" POINTS" 

7  K$="0IL" 

8  L$="  WINS  WITH" 

9  N$=" PETROL" 

10  PR I NT "3  ROABRACE" 

30  INPUT "DRIVER  1";B$ 

45  fi=0 

50  INPUT "AND  2"; A* 

60  B=0 

70  INPUT "PRESS  RETURN" ;C$ 

80  F0RJ!!1T0299 :  NEXT 
90  PRINT"T;A$ 

95  K=0 
100  GOTO 180 
105  A=A+2 

110  IFA>390THEN270 
115  IFA<0THENA=0 
120  PRINTM$.;397-A;D$ 

125  PRINT 
130  PRINT, B$ 

135  K=1 
140  GOTO 180 
145  B=B+Z 

150  IFB>390THEN280 
155  IFB<0THENB=0 
168  PRINTM$;397-B;D$ 

170  GOTO70 

180  C=INT < 1 1#RND( 1 ) )+l 
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190  I FO5THENG0SUB2 1 0 

200  IFC<STHENONCGOSUB220, 230, 240,250, 260 

205  IFK=0THEN105 

207  IFK=1THEN145 

210  M$=E$ 

212  Z=27 
215  RETURN 
220  M$*F$ 

222  Z=-19 
225  RETURN 
230  M$=G$ 

232  Z=-7 
235  RETURN 
240  M$=H* 

242  Z*-12 
245  RETURN 
250  M$=H$ 

252  Z=-5 
255  RETURN 

260  m*=k$ 

262  Z*-23 
265  RETURN 

270  PR I NTR$ ; L$ , 39#  <  FHB ) +fl-B ; J $ 

275  END 

280  PRINTB$;L$,39#<B-R>+B~fi;J$ 

285  END 


There  are  a  few  things  to  note  about  this  program.  It  is  meant  to  be  a  race, 
and  although  the  drivers  in  this  game  actually  go  backwards,  they  are 
unlikely  to  go  backwards  beyond  their  starting  point.  Therefore,  if  at 
anytime  the  score  becomes  less  than  zero,  it  is  reset  to  zero  (lines  115  and 
155).  Also  in  this  game,  as  in  SNAKES  AND  LADDERS,  there  is  a  slightly 
better  than  even  chance  of  getting  an  ALL  OK  (and  a  positive  mileage). 
See  if  you  can  find  the  line  in  the  listing  that  ensures  this. 

Comparing  line  260  in  SNAKES  AND  LADDERS  with  line  80  in 
ROADRACE  is  instructive  in  the  first  program,  the  delay  is  random  (and 
varies  from  a  delay  of  practically  zero  when  S  =  1  to  a  longer  period  when 
S  =  3000).  In  ROADRACE,  the  delay  is  set  (purely  arbitrarily  at  299).  There 
is  no  reason  why  you  can't  set  the  delay  in  either  program  to  zero  (delete 
the  FOR/NEXT  loop,  but  leave  in  the  CLR)  or  any  number  you  like,  or  —  if 
you  prefer  the  unexpected  —  at  a  random  number.  Do  not  set  the  random 
limit  too  high  (like,  say,  S  =  1  TO  10000*RND)  because  you  run  the  risk  of 
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losing  interest  in  the  game  if  the  delay  is  close  to  10000  time  and  time 
again. 

The  next  game  —  52  BLUFF  —  uses  the  string  idea  again.  In  this  game  the 
computer  deals  two  cards.  If  you  think  the  next  card  to  be  dealt  will  be 
between  the  first  two,  you  place  a  bet  of  your  choice.  This  game  is  more 
interesting  than  some  computer  betting  games  like  FRUIT  MACHINE 
because  you  can  decide  on  the  likelihood  of  a  win  and  adjust  your  bet 
accordingly.  You  can  even  decide  not  to  bet  at  all. 

10  S=30 
20  R$="" 

30  F$="CRRD1 : " 

40  G$="CflRII2:" 

30  H$="CRRD3: 11 
60  fl= I NT  < 1 3#RND  <  1 ) ) + 1 
70  B=INT<13$RNIK1))+1 
80  IFB=RTHEN70 
90  PRINT"STRKE:£";S 
100  PRINTF$;fl$; 

110  Z=R 
120  GOSUB460 
130  PRINT 
140  PRINTG$.:fl$; 

150  Z=B 
160  GOSUB460 
170  INPiJT"WRGER"  JC 
iqfl  PPTk|T"T  I 

200  IFC=0THENPRIHT, "C014RRD" 

210  PRINTR,B 

220  D=INT ( 13#RNB< 1 ) )+l 

230  I  FD=RORII=BTHEN220 

240  PRINT 

250  PRINTH»JR$; 

260  Z=B 
270  GOSUB460 

280  I FR<BRNDB<BTHENGOSUB360 
290  I FR>DRNBB>BTHENGOSUB360 
300  I FD>BRNDD>RTHENG0SUB4 1 0 
310  I FIKBRNDIKRTHENG0SUB4 1 0 
320  IFS<1THEN440 
330  INPUTK* 
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340  PR  I  NT  "T 
350  GOTO60 
360  S=S+2#C 

370  I FS> 1 99THENPR I NT " VOU  HAVE  BROKEN  THE  BANK": END 
330  I F  CO0THENPR I  NT  “  VOU  WIN  £";2*C 
400  RETURN 
410  S=S~C 

420  I FCO0THENPR I NT ” VOU  LOSE  £";C 
430  RETURN 

440  PR I NT "VOU  ARE  BROKE" 

450  END 

460  I FZO 1  flNBZ<=  1 0THENPR I NTZ 
470  I  FZ=  1 THENPR I NT " ACE " 

480  I FZ= 11 THENPR I NT "JACK" 

490  I FZ= 1 2THENPR I NT " QUEEN " 

500  I FZ= 1 3THENPR I NT " K I NO " 

510  RETURN 
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Hot  Sauce 

You  will  recall  that  earlier  in  this  book  there  was  a  program  in  which  the 
computer  thought  of  a  number,  then  gave  you  hints  to  help  you  guess  it. 
You  probably  realised  that  if  you  started  with  50  as  your  first  guess,  it  was 
pretty  easy  to  narrow  down  the  number  by  going  to  either  25  or  75  on  the 
second  guess.  This  method  allowed  you  to  get  the  correct  number  fairly 
easily.  Here  is  another  program  which  appears  somewhat  similar.  But  it  is 
far  harder  to  work  out  a  system  to  beat  it. 

10  PRINTnrH0T  SAUCE" 

30  PRINT 

40  PR  I  NT  "WHAT'S  YOUR  NAME, ", "PARDNER?" 

50  INPUTfl* 

70  PR  I  NT  "T 
80  PRINT 
90  S=0 

100  PR I NT "OK  ";A$;",I  AM" 

105  PRINT"THINKING  OF  A  NUMBER" 

110  PR I NT "BETWEEN  1  AND  100" 

120  PR I NT "YOU  HAVE  TWELVE  GUESSES" 

130  J=INT<100#RNB<1))+1 
140  PRINT 
150  S=S+1 
160  IFS=13THEN420 

170  PR I NT "WHAT  NUMBER  AM  I  THINKING  OF" 

175  INPUTA 
190  PR I NT "3" 

200  IFA=JTHEN360 
210  IFA<JTHEN300 

220  I FA- J<5THENPR I NT " BO I L I NG , " ; A$ 

230  I FA- J< 1 2ANBA- J>4THENPR I NT " HOT " 

240  I F A- J <25ANB A- J>  1 1 THENPR I  NT  "  WARM " 

250  I  FA- K45AN3A-  J>24THENPR  I  NT  "  COLD " 

260  I F A- J>44THENPR I NT " FREEZ I NG , BABY" 

270  PRINT 

280  PR I NT "NEXT  GUESS?" 

298  GOTO 150 

300  IFJ-AC5THENPRINT" VERY, VERY  CLOSE" 

310  I F  J-A<  1 2RNB  J-AMTHENPR I  NT  "  PRETTY  CLOSE" 

320  I F J- A<25AND J-A> 1 1 THENPR I NT " JUST  SO-SO " 

330  I F  J-A-C45ANB  J-A>24THENPR  I  NT  "  PRETTY  HOPELESS" 
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340  I F  J - A>44THENPR  I  NT  "  PRTHET  I C  .• " ;  A$ 

350  GOT0280 

360  PRINT" VOU  WERE  RIGHT, ";A$ 

370  PRINT" I  WRS  THINKING  QF"JJ 
380  PRINT"SO  VOU  GET  ANOTHER  GO" 

385  INPUTA$ 

390  RUN 

420  PRINT"3SORRV  "Jflfi"  VOU" 

425  PRINT"DIDN'T  GUESS  IT" 

430  PRINT 

440  PRINT" I  WAS  THINKING  OF";.J 
450  END 

The  term  "absolute"  (ABS  on  keyboard)  was  introduced  just  after  the 
listing  for  PESKY  PIKSY.  Refer  back  if  you're  not  sure  what  ABS  does. 
The  HOT  SAUCE  program  could  be  written  quite  differently  from  the 
above,  by  using  the  ABS  in  the  listing  here,  the  VIC's  response  to  your 
guess  is  determined  by  whether  the  number  you  guess  is  higher  or  lower 
than  the  one  it  is  thinking  of,  and  by  the  difference  between  the  numbers. 
If  you  rewrite  HOT  SAUCE  using  ABS,  you'll  find  that  only  the  difference 
between  the  numbers  will  determine  the  comment  {"PATHETIC"  or 
"BOILING"  or  whatever)  the  VIC  will  make.  And  just  as  HOT  SAUCE  is 
more  difficult  to  play  than  GUESS  MY  NUMBER,  HOT  SAUCE  with  ABS 
is  harder  than  without  it.  As  an  exercise,  write  a  HOT  SAUCE  program 
using  ABS.  You  should  find  it  uses  less  memory  than  the  above  listing. 


s 

tiw&KT.  a. 

MuSSlt 
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Draughts 

This  next  section  will  enable  you  to  develop  a  partially  complete  game  of 
draughts.  However,  the  main  reason  it  has  been  included  is  so  I  can  explain 
a  method  of  numbering  boards  for  board  games  which  make  it  easy  for  a 
computer  to  manipulate.  A  similar  board-numbering  system  can  be  used  as 
the  core  of  a  chess  program,  noughts  and  crosses  and  even  Nine  Mens 
Morris.  I  strongly  urge  you  to  follow  through  the  text  carefully,  entering 
the  program  as  listed. 


If  you  do  this,  you  should  learn  quite  a  lot  which  will  help  you  when  you 
come  to  write  your  own  board  games. 


THE  NUMBERING  SYSTEM 

The  normal  way  to  number  a  draught  board  is  to  count  off  the  white 
squares  (actually,  the  black  squares  are  counted,  but  white  ones  are  used 
here  because  they  are  easier  to  use  in  the  computer  context)  from  one  to 
32.  But  this  numbering  method  creates  a  problem  when  we  try  to  define  a 
move  in  terms  of  the  difference  between  two  diagonally  adjacent  squares. 
In  one  direction,  the  difference  between  the  squares  can  be  three  or  four 
and  in  the  other  direction,  the  difference  can  be  five  or  four.  There  are  also 
no  'spare'  numbers  to  indicate  where  the  edge  of  the  board  begins. 

Now,  a  gentleman  by  the  name  of 
A.  L.  Samuels  wrote  an  article  for  Scientific 
American  in  the  1960s  (see  Strachey, 

Christopher,  "Systems  Analysis  and 
Programming",  in  Readings  from  Scientific 
American,  W  H  Freeman  and  Co.,  San 
Francisco,  1971)  in  which  he  devised  a 
clever  numbering  system  in  which  the 
difference  between  diagonally  adjacent 
squares  is  always  four  and  five  (or  minus 
four  and  minus  five).  It  also  allowed  for 
numbers  to  be  given  to  squares  which  were 
'off  the  board'. 

I've  changed  his  numbering  system  a  little  to  make  it  more  convenient  for 
the  computer,  and  in  my  system,  the  difference  between  squares  is  always 
six  or  seven  (or  minus  six  and  minus  seven).  My  system,  very  simply,  sets 
up  an  array  of  82,  and  allots  certain  elements  of  the  array  to  squares  on  the 
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board.  All  the  others  are  understood  by  the  computer  to  be  off  the  board. 


In  this  program,  the  computer  allots  the  value  9  to  any  square  off  the 
board,  zero  to  an  empty  square,  1  to  a  computer's  ordinary  piece  (2  to  a 
computer  King)  and  -1  to  the  player's  ordinary  piece  (and  -2  for  a 
player's  King).  This  may  sound  a  little  complicated,  but  bear  with  me,  and 
it  will  (hopefully)  all  become  clear. 

Here  is  my  numbered  board.  You  can  see  that  if  you  move  from  the  top  left 
hand  corner  (69)  to  the  square  diagonally  below  it  (63)  the  difference 
between  the  two  spaces  is  -6.  Now,  choose  any  other  square  on  the 
board  from  which  you  can  move  down  and  to  the  left,  and  you'll  see  there 
is  a  difference  of  -  6  between  the  square  you  started  on,  and  the  square  on 
which  you  finished.  This  sort  of  predictable  result  is  relatively  easy  for  a 
computer  to  handle.  Move  in  the  other  direction,  that  is  downward  and  to 
the  right,  and  you'll  see  the  difference  between  the  two  squares  is  -7.  In 
the  first  version  of  draughts,  we'll  actually  be  playing  on  the  board  printed, 
so  you'd  better  start  looking  for  a  number  of  small  buttons  to  use  as 
playing  pieces. 
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The  program  is  in  two  parts.  The  first  'sets  up  the  board'  (the  subroutine 
starting  at  9000)  and  the  second  (10  to  370)  actually  plays  the  game.  Your 
pieces  start  at  the  bottom  of  the  printed  board  (on  the  lower  numbers)  and 
the  computer  starts  at  the  top.  You  place  the  pieces  on  the  board  and  then 
press  RUN.  It  plays  remarkably  fast. 

The  computer's  moves  are  shown  as  two  numbers.  The  first  is  the  square  it 
is  moving  from,  and  the  second  —  naturally  enough  —  is  the  square  it  is 
moving  to.  Move  its  pieces  on  the  board  as  instructed  and  then  decide  on 
your  move.  Make  sure  you  move  your  piece  BEFORE  you  input  your  move 
(which  you  do  by  entering  the  number  of  the  square  you're  moving  from, 
then  RETURN,  therythe  square  you're  moving  to)  or  you  may  forget  what 
your  move  was. 

Note  that  there  is  no  provision  within  the  program  for  multiple  jumps  by 
either  player  or  the  computer. 

The  program  has  been  deliberately  left  incomplete  so  you  can  work  on  it 
once  you've  understood  the  material  presented  in  this  section.  A  number 
of  suggestions  for  improvement,  including  the  provision  of  multiple  jumps, 
is  included  at  the  end. 

Here  is  the  first  part  of  the  program,  the  section  which  sets  up  the  board.  It 
creates  an  array  (DIM  A(82))  then  fills  the  array  with  numbers  representing 
pieces  on  the  board  (1  and  -1)  empty  square  (0),  and  squares  off  the 
board  (9). 

9000  DIMFK82) 

9020  DIMXC2) 

9030  xa>=-6 
9040  X<2)=-7 
9050  F0RZ=1T082 
9060  fl<Z)=9 

9070  I FZ<73flNBZ>55ANDN0T <  Z=670RZ=680R 
Z=68QRZ«6 1 QRZ=62 ) THENfi <  Z  > * 1 
9080  I FZ<54fiNDZ>42fiNDN0T  < Z=47QRZ=480R 

Z*49 ) THENfi  <  Z ) *0 

9098  I FZ<4 1 fiNBZ>23ANDN0T  <  Z»340RZ=350R 
Z=360RZ=280RZ=29 ) THENfl  <  Z ) =- 1 

9100  NEXTZ 
9110  A$="MY  MOVE  " 

9120  B$="V0URS, " 

9130  RETURN 
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Check  to  see  if  this  is  working  correctly  before  you  proceed.  Add  8000 
END,  then  RUN  the  program.  When  it  stops,  get  the  computer  to  print  out 
the  following,  to  make  sure  it  has  assigned  values  correctly.  The  right 
answer  is  given  in  brackets  after  the  command: 

PRINT  A(23)  (9) 

PRINT  AI54)  (9) 

PRINT  A(64)  (II 
PRINT  A(38)  (-11 
PRINT  A(51)  (0) 

PRINT  A(73)  (9) 


Now  enter  the  following: 

1  GQSUB9000 
10  Q=0 
20  Z=24 

25  I  Ffl  <  Z  ) =9THEN 100 
30  IFfl(ZXlTHEN100 
50  F0RX=1T02 

60  I Ffl  <  Z+X  <  X ) ) <0fiNDfl  <  Z+2#X  00 ) »@THENQ=X  <  X  > 
80  IFQO0flNDZ+2#G>23THEN120 
85  Q=0 
90  NEXTX 

100  IFZ<72THENZ=Z+1 :G0T025 
110  IFQ=@THEN160 
120  fl<Z+Q)»0 
130  flCZ+2*Q>=fi<Z> 

140  fl<Z>=0 
150  PRINTR$;Z,Z+2*Q 
155  GOTO320 
160  V=0 

170  Z*INTC49#RNIKl))+23 
180  V=V+1 

190  I  Ffl  <  Z  )  0 1  ftNBft  <  Z  >  02THEN 1 70 
200  FORX*1T02 

210  IFFKZ+X<X))=0THENQ=X<X) 

220  IFfl<Z)=2flNBfl(Z-X<X> )=0THEHQ=-X<X> 

230  IFQO0THEN290 
240  NEXTX 

260  IFV<100THEN170 
270  PRINT"VOU  WIN" 
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280  END 

298  fl<Z+Q)-fl<Z) 

300  fKZ>=0 
310  PRINTfl$;Z,Z+Q 
320  PRINT, B* 

330  INPUTfl.B 
340  fl<B)=fi<R) 

350  R<fi>=0 

360  I FRBS  <  fl~B ) >?THENfl  < R+ 1 NT  < ( B-fi  > /2 ) > =0 
370  GOTO 10 

Play  a  complete  game  with  the  computer,  using  little  buttons  on  the  board 
provided,  then  return  to  this  book  and  we'll  go  through  the  program  line  by 
line  to  explain  how  it  works. 

Line  10  sets  up  Q  as  the  indicator  (or  'flag')  to  show  a  move  has  not  been 
made.  When  a  move  decision  has  been  made,  Q  changes  to  a  value  which 
is  not  zero.  Line  20  starts  the  loop  which  checks  every  square  on  the  board 
to  see  if  a  capture  can  be  made.  Line  30  checks  to  see  if  the  square  being 
looked  at  (ie  the  element  of  the  array)  is  a  computer  piece  (1 ).  If  it  is  not, 
the  computer  does  not  waste  time  checking  through  the  logic  statements, 
and  goes  to  1 00. 

If  the  computer  finds  that  the  piece  it  is  considering  is  one  of  its  own  it 
goes  through  the  X  loop,  checking  that  the  piece  down  and  to  the  left  ( -  6) 
is  less  than  0  (if  it  is,  the  square  contains  a  player's  piece)  and  that  the 
square  twice  the  distance  away  (ie  -  12)  is  an  empty  square.  If  these  two 
conditions  are  true  it  sets  the  capture  flag  (Q)  to  -6. 

If,  in  line  80,  the  computer  finds  Q  still  equal  to  zero,  it  knows  it  has  not 
made  a  decision  to  capture.  If,  however,  Q  is  non-zero,  control  is  sent  to 
line  120  to  act  on  the  decision.  Line  90  looks  through  the  X  loop  with  the 
second  value  (-7)  of  X(X).  Line  105  continues  to  search  through  the  Z 
loop,  checking  every  square  to  make  sure  a  potential  capture  is  not  missed. 

If  Q  still  equals  zero  when  the  computer  gets  to  line  1 10  it  knows  there  is  no 
potential  capture  on  the  board,  so  control  is  sent  to  line  160  to  find  a 
random,  legal  move.  If,  however,  Q  is  non-zero,  lines  120,  130  and  140 
make  the  capture,  and  line  150  displays  it.  Having  made  its  move,  it  sends 
control  to  line  320  to  accept  the  player's  move. 

If  a  legal  move  has  not  been  made,  the  computer  looks  for  a  random  move. 
The  flag  Y  (line  160)  counts  the  number  of  attempts  made  to  find  a  legal 
move  (adding  one  to  Y  in  line  180  each  time  it  tries  a  move).  If  no  move  is 
found  in  99  attempts  (line  260)  the  computer  wisely  concedes  defeat. 

Line  190  checks  to  see  if  the  square  it  has  generated  contains  one  of  its 
own  pieces,  and  if  it  does  not,  and  Y  is  less  than  100,  goes  back  to  pick 
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another  square  at  random.  Once  it  finds  a  piece  of  its  own,  it  applies  the  'X 
loop  test'  (lines  200  to  240)  to  see  if  it  can  move  legally,  again  using  the  flag 
Q  to  indicate  whether  or  not  a  move  has  been  made. 

Lines  270  and  280,  as  we've  said,  concede  defeat. 

Lines  290  to  310  make  the  move  and  print  it  for  the  player. 

The  player  then  makes  a  move  (lines  325  and  330)  and  the  computer  acts 
on  it  (lines  340  to  360)  using  the  somewhat  complicated  line  360  to  capture 
a  piece  if  the  player's  move  is  greater  than  seven.  It  knows  that  a  move  to 
an  adjacent  square  must  be  either  6,7,  -6  or  -7  and  that  a  move  greater 
than  this  can  only  come  if  the  player  is  jumping  over  a  piece  (or  cheating). 
The  computer  never  assumes  the  player  is  cheating  (because  the  computer 
cannot  cheat)  so  uses  line  360  to  work  out  which  square  lies  between  the 
square  the  player  moved  from,  and  the  square  the  player  moved  to,  'erase' 
its  own  pieces. 

Once  you've  understood  the  foregoing,  you  can  start  improving  the 
program.  I'll  give  you  a  way  of  printing  up  a  board  (although  you'll  still  have 
to  refer  to  the  numbered  board  to  input  your  moves)  but  the  other 
improvements  are  up  to  you.  Once  you've  got  the  printing  of  the  board 
under  control,  you  might  like  to  try  and  add  the  following,  to  change  the 
program  into  a  real  draughts  game: 

—  Add  Kings 

—  Add  multiple  jumps  (these  are  relatively  easy,  as  each  multiple 
jump  is  a  predictable  arithmetic  change  from  the  starting  square, 
and  the  array  is  large  enough  to  stop  you  jumping  out  of  it  in 
most  cases  when  looking  for  potential  multiple  jumps).  Player's 
multiple  jumps  are  very  easy.  Just  get  the  computer  to  ask  "IS 
THIS  A  MULTIPLE  JUMP?"  If  a  capture  (line  360)  is  made,  and 
if  the  answer  is  "YES",  send  control  back  to  325  to  allow  the 
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second  jump  to  be  made. 

—  Add  a  'capture  tally'  so  the  computer  will  print  up  after  each 
move  how  many  each  of  you  have  taken.  The  computer  can 
then  declare  itself  the  winner  if  it,  say,  captures  nine  of  your 
pieces. 

—  Add  a  mechanism  to  accept  moves  directly,  rather  than  by 
having  to  look  it  up  on  a  table. 

There  are  probably  other  improvements  you  can  make,  but  I  feel  these 
should  be  your  first  priority. 

The  final  'improvement'  I  will  give  you  to  the  program  is  a  little  routine 
(developed  by  Tony  Baker)  to  print  out  the  board. 

Delete  line  320,  change  310  and  150  to  GOSUB  5000  add  15  GOSUB  5000, 
and  change  155  to  GOTO  330. 


5000  F0RM=24T072 
5010  IFA<M)=1THENA<M>=66 
5020  IFA<M)=-1THENA<M>=87 
5030  I FA ( M ) =0THENA  <  M ) =32 
5050  NEXTM 

5060  PRINT'S"  ;A$;  2; 2+Q 
5070  PRINTB* 

5080  PRINT 
5090  FORK=0TO3 
5100  FORJ=0TO3 

5110  PRINT"!  3" ; CHR$  <  A  < 72- J- 1 3#K ) ) ; 

5120  NEXTJ 
5130  PRINT 
5140  FORJ=0TO3 

5150  PR I NT " 3" ; CHR$  <  A  <  66- J- 1 3#K  > ) ; " !  3”; 

5160  NEXTJ 

5170  PRINT 

5180  NEXTK 

5190  PRINT"!" 

5200  F0RM=24T072 
5210  IFA<M)=66THENA<M>=1 
5220  I FA ( M  > -87THENA  <  M ) 1 
5230  I F A  <  M ) S32THENA  <  M ) =0 
5250  NEXTM 
5260  RETURN 
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With  this  in  place,  you'll  actually  see  the  piece  move.  Ignore  the  line  "MY 
MOVE. . when  it  gives  the  same  square  number  twice.  Wait  for  it  to 
change,  and  then  watch  the  computer's  piece  move.  Captures  look 
particularly  good.  Wait  until  the  cursor  appears  before  you  attempt  to  enter 
your  move. 

Note  that  the  two  loops  (5000  to  5050  and  5200  to  5250)  decide  which 
character  will  represent  which  piece.  By  all  means  change  these  if  you  like. 

First  Steps  Towards  the 
Stars 

Most  computer  systems  in  the  world,  micro  to  mainframe,  have  at  least 
one  STAR  TREK  game  in  their  library.  Here  is  one  of  the  simplest  versions 
of  this  old  favourite.  Study  of  the  program  will  teach  you  some  of  the 
fundamentals  of  star  games,  and  will  give  you  a  core  to  build  on. 

2  PRINT"r3TIMEWARP" 

3  PRINT 

4  PRINT 

5  G=10 

6  H=0 

7  input"name";n$ 

8  I NPUT " TREASURE " ; T$ 

11  I NPUT "ENEMY  1";E$ 

13  I NPUT "ENEMY  2";F$ 

16  PR  I  NT  "T 

17  J=INT<2#RND<1>> 

18  IFJ=1THENL$=E$ 

19  IFJ=0THENL*=F$ 

20  IFGC1THEN50 

21  PR I NT "SHI ELD  THICKNESS: ";G 

22  INPUTQ* 

23  H=H+1 

24  PRINT 

25  PRINT"TIME  LEFT:";17-H 

26  print"danger~";l$;"  ahead" 

27  INPUTB* 

28  G0SUB55 

29  IFH=17THEN52 

30  K*INT<2#RNDa>> 
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31  IFK=0THEN35 

32  0=G-1 

33  PR  I  NT  "THE  "  GOT  VOU" ,  N* 

34  GOTO 17 

35  G=G+1 

36  PR I NT "VOU  DESTROYED  THE",L$; ", ";N$ 

37  INPUTZ* 

39  PRINT'TTi'OU  ARE  CLOSER  TO  THE  ";T$ 

40  INPUTD* 

41  PR  I  NT  "T 

42  M=INT<5#RND<D> 

43  IFMC4THEN17 

44  G0SUB55 

45  I FG>0THENPR I NT " CQNGRATUL AT IONS,  ",N$ 

46  PR I NT "VOU  GOT  THE  ";T$ 

47  PR I NT "OUT  OF  THE  T I MEW ARP" 

48  PRINT"WITH" J 17-H, "TIME  UNITS  SPARE" 

49  END 

50  PR I NT "GAME  OVER, VOU  ARE  DEAD" 

51  END 

52  PR I NT "T I MEW ARP  HAS  IMPLODED" 

53  PR I NT "VOU  HAVE  FAILED" 

54  END 

55  FORW=lTOINT<3000#RNDa>> 

56  NEXTW 

57  PR  I  NT  "T; 

58  RETURN 

If  the  value  of  H  could  be  used  to  print  the  "sector  of  the  galaxy"  we  were 
in  (ie  IF  H  >  3  AND  H  <  7  THEN  PRINT  "YOU  ARE  IN  SIRIUS  SECTOR") 
we  would  be  well  on  the  way  to  creating  a  real  "STAR  TREK". 

In  this  next  program,  for  the  first  time,  we  access  the  timer.  This  allows  us 
to  add  a  time  dimension  to  programs. 

2  PRINT"3  SFRENZV" 

4  PR I NT "PRESS  ANV  KEY" 

5  GETA$  '•  IFA$0"  "THEN5 

6  GETA$ : IFA$=" "THEN6 

7  G= I NT  < 1 5#RND  C 1 ) ) +6 

8  F0RJ=1T0G 

9  FORD=1TO50#INT<  <20+50#RND< 1 ) )/J) 

10  NEKT 

11  PR  I  NT  "T 
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12  I F  J>  1 THENPR I  NT  "  T I  ME  LfiST  G0:-":f1 

13  PRINT 

14  PR I NT "TEST  NO. "; Jj "OUT  OF";G 

15  PRINT 

16  PR I NT "YOU  HAVE"; 220-7* J; "SECONDS" 

17  FORW=0TOINT  < 1 1*RNB< 1 ) ) 

18  PRINT 

19  NEXTW 

20  F=<2#G+3*J/2  W*J~INT<9*RNB<  1>>-1 

21  T I $= " 000000 " 

23  PR I NT "OK  BUM  BUM, COPY  THIS  NUMBER" 

24  PRINT 

25  X=INT<4*RNB<1>> 

26  IFX-1THENPRINT"  "; 

27  IFX=2THENPRINT, 

28  IFX=3THENPRINT, " 

29  PRINTF 

30  INPUTK 

31  M-TI 

34  I FK*FflNBM<220-7* JTHENNEXT J 

35  IFKOFTHEN50 

36  G0T046 

37  PR  I  NT  "T 

38  PR I NT "YOUR  SANITY  RATING" 

39  print" is"  > m.j/s+?mw  1 ) 

40  PRINT 

41  PRINT"COULB  YOU  STANB  IT  AGAIN" 

42  INPUTHf 

43  I FH$<> " NO " THENGOT 02 

44  ENB 

46  PRINT'TMHJ  ARE  FAR  TO  SLOW" 

47  PRINT 

48  G0T038 

50  PRINT'TMHJ  CANNOT  EVEN  COPY  NUMBERS" 

51  PRINT 

52  G0T038 


There  are  a  few  extra  ideas  in  this  program  which  are  worth  pointing  out. 
Firstly,  look  at  lines  25  to  28.  These  decide  how  far  across  the  line  the 
number  F  will  be  printed  (if  X  =  0  the  number  is  printed  hard  against  the 
left  because  there  is  no  instruction  for  X  =  0).  The  second  point  worth 
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noting  is  that  the  manner  in  which  the  answer  to  COULD  YOU  STAND  IT 
AGAIN?  is  treated.  Any  answer  at  all,  except  NO,  will  be  interpreted  as  an 
instruction  to  go  back  for  a  second  game.  So  if  your  smart  friends  input 
YAY,  YEAH,  Y,  YESSIR,  OK  or  whatever,  the  VIC  will  "understand"  that 
YES  (actually,  NOT  NO)  is  meant. 


Music 

Let's  explore  the  VIC's  music  making  abilities  now.  Type  in  the  following 
lines  of  program  and  I'll  tell  you  what  they're  for. 

10  SI =36874 
20  52=36875 
30  S3=36876 
40  S4=36877 
50  V=36878 

Now,  SI  stands  for  Speaker-1 ,  S2  stands  for  Speaker-2,  S3  stands  for 
Speaker-3,  and  S4  stands  for  Speaker-4.  V  is  for  Volume.  The  numbers 
after  the  equals  sign  are  the  VIC's  music  producing  numbers.  You  must 
always  use  these  numbers  when  making  music. 

To  generate  SOUND  we  must  use  the  POKE  statement  —  you  may 
remember  we  used  this  earlier  on  when  we  were  first  exploring  colour. 
Let's  first  see  how  to  generate  SILENCE.  Add  the  following  lines  —  these 
form  a  subroutine: 

500  FORRaSITOV 
510  P0KEfl;8 
520  NEXT 
530  RETURN 


Notice  that  we  have  POKEd  all  four  Speakers,  and  the  Volume,  with  zero. 
Now  lets  actually  start  making  music.  We'll  start  by  exploring  the  purpose 
of  SI  —  Speaker-1 .  Add  the  following  lines  and  then  RUN  the  program. 

100  GOSUB500 

110  P0KEV.5 

120  F0Rfl=128T0255 

130  POKES l,fl 

140  FQRB=1TO50 : NEXTB 

150  NEXTfl 

160  GOSUB500 

170  END 
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Do  you  see  what  happens?  The  number  5  we  POKEd  into  V  was  the 
volume  level.  The  number  we  POKEd  into  SI  was  the  tone.  You  should 
have  discovered  this  by  RUNning  it.  Change  line  130  to  POKE  S2,A  and 
RUN  it  again.  Now  change  it  to  POKE  S3, A  and  RUN  it  once  more.  Now 
for  the  biggest  surprise  of  all  —  make  line  130  POKE  S4,A  and  RUN  it 
again.  SI,  S2,  and  S3  are  there  to  make  music  —  S4  produces  noise. 


Read  and  Data 

Type  NEW.  Now  input  the  following  program: 

10  REflDN 
20  PRINTN 
30  GOTO 10 

9000  BflTfll7, 16,42,99,0,57, 123 

Line  1 0  instructed  the  computer  to  READ  a  new  value  into  the  variable  N.  It 
got  this  value  (17)  from  the  DATA  statement  in  line  9000.  The  next  time 
round  it  READ  the  value  16  into  N,  then  42,  and  so  on  up  to  123.  This  time 
when  it  tried  to  READ  N  it  had  run  out  of  data,  and  so  stopped  with  the 
error  message  OUT  OF  DATA. 

We  can  use  READ  and  DATA  to  help  the  VIC  to  play  a  tune.  Let's  see  how 
this  can  be  done. 

10  Sl*36874 

20  S2=36875 

30  S3=36876 

40  84=36877 

50  V=36878 

100  GOSUB500 

110  P0KEV,4 

120  F0Rfl=lT016 

130  REflDN 

140  P0KES2.N 

150  F0RB= 1 TO 1 000 : NEXTB 

160  NEXTfl 

170  GOSUB500 

180  END 

500  FORfl=SlTQV 
510  POKEFU0 
520  NEXT 
530  RETURN 
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9000  DRTFI135>  147..  159;  135 
9010  DflTfil35,147,159..135 
9020  DfiTfll59,163,175,175 
9030  BfiTfil59.»  163/ 175 .« 175 


A  pretty  bad  tune  eh?  I'm  sure  you  can  improve  it.  This  table  will  help.  It 
tells  you  what  values  of  N  you  need  to  POKE  in  order  to  make  the  notes 
required. 


NOTE 

VALUE 

NOTE 

VALUE 

NOTE 

VALUE 

C 

135 

C 

195 

C 

225 

C# 

143 

C # 

199 

C # 

227 

D 

147 

D 

201 

D 

228 

D# 

151 

D# 

203 

D# 

229 

E 

159 

E 

207 

E 

231 

F 

163 

F 

209 

F 

232 

F# 

167 

F# 

212 

F # 

233 

G 

175 

G 

215 

G 

235 

G# 

179 

G # 

217 

G # 

236 

A 

183 

A 

219 

A 

237 

A# 

187 

A # 

221 

A# 

238 

B 

191 

B 

223 

B 

239 

C  240 

C#  241 
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Maestro 

There's  no  reason  why  the  computer  can't  be  programmed  to  'write'  its 
own  'music'.  Here  are  a  few  programs  which  do  just  that.  Just  change  a 
few  of  the  lines  you  already  have  then  examine  the  listings  and  work  out 
how  they  do  it.  Then,  write  a  few  similar  programs  of  your  own. 

DELETE  9000-9030 
DELETE  130 

140  P0KES1 t  INT ( 12S#RMB< 1 »+128 

Then  add  the  following  and  run  the  program  again: 

DELETE  120 

160  GOTO 140 


You'll  have  to  press  STOP  to  break  out  of  this  program,  and  RUN  500  to 
stop  the  music. 


Now  wipe  this,  and  try  the  following  (which  writes  its  own  music,  and  adds 
lighting  effects). 

10  Sl=36874 

29  82=36875 

30  V=36878 
40  C=36879 
60  DIMN<8) 

70  DIMB<4> 

80  PR  I  NT 11 T 
100  GOSUB500 
105  P0KEV,4 
110  F0RR=1TQ8 
120  RERDN(fl) 

130  NEXT 

140  N=INT<8#RNDa>)+l 

150  B<1)=N 

160  F0RR-1T02 

170  GOSUB400 

180  B<R)=N 

190  NEXTfl 

200  F0RR=1T04 

210  POKESi,N<B<fl>> 

220  F0RB=1T02 
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230  GOSUB400 
240  P0KES2,N<N> 

250  POKEC, 16#B<A>+N 
260  FORJ=1TG250 : NEXT 
270  NEXTB 
280  NEXTR 
290  GOT0200 

400  N=N+ 1 NT  <  3#RND  <  1 )  )  - 1 
410  IFN=9THENN=8 
420  IFN=0THENN=1 
430  RETURN 
500  FGRA=S1T0V 
510  POKER, 0 
520  NEXT 
530  RETURN 

900  DATA 195, 201 , 207 , 209 
910  BRTR215, 219, 223, 225 

To  break  out  of  the  program  press  STOP  and  then  type  GOTO  500.  Or  if 
you'd  like  a  simpler  program: 

20  52=36875 
30  V=36878 
40  0=36879 
60  DIMN<8) 

80  PR  I  NT  "T 
100  GOSUB500 
105  P0KEV,4 
110  F0RR=1T08 
120  RERDN<R) 

130  NEXT 

140  N=INT <8#RNB< 1 ) >+l 
240  P0KES2,N<N) 

250  POKEC, N 

260  FQRJ=1TQ1000 : NEXT 

290  GOTO 140 

500  F0RR=S2T0V 

510  POKER, 0 

520  NEXT 

530  RETURN 

900  BRTR195, 281 , 207, 209 
910  DRTR2 15,219, 223 , 225 

Again,  you  need  to  press  STOP  and  then  type  GOTO  500  in  order  to  break 
out. 
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Doing  it  in  Your  Head 

The  next  two  programs  do  not  have  timers,  but  could  well  be  adapted  to 
have  a  real  time  limitation  if  you  like. 

10  PR I NT " rUN I CORNS  AND  GRIFFINS" 

20  G*INT <5#RND< 1 ) )+6 
30  PRINT 

40  PR I NT "DEGREE  OF  DIFFICULTY  <1  TO  5>" 

45  INPUTS 

50  I FQ< 1 ORQ>5THEN40 

70  PR I NT "PRESS  RETURN  TO  START" 

80  INPUTfl$ 

90  F0RJ=1T0G 

100  FORD=1TOINT<2000#RND<1)) 

110  NEXTD 

120  PR  I  NT  "T 

130  F0RW=1T06#RND< 1 >+l 

140  PRINT 

150  NEXTW 

160  F=2#G+INT<3*J.'2> 

170  Z®F+INT < 10#Q#RND( 1 )+5#J) 

180  PR I NT "UN I CORN'S  NUMBER  IS",F 
190  PR I NT "WHAT  DOES  GRIFFIN  ADD  TO" 

200  PR I NT "MAKE  UNICORN'S  NUMBER®" ; Z 
210  INPUTK 

220  I FK+F=ZTHENNEXT J 
230  PRINT 

240  T=F#INT < 100#RND< 1 )+l >+F 
250  IFJ=1THENT=0 

260  PR I NT "SCORE  FOR  THAT  ROUND  WAS";T 

270  IFJOGANDK+FOZTHENGOSUB330 

280  I F J=GTHENGOSUB360 

290  PR I NT "DO  YOU  WANT  TO  TACKLE  THE" 

300  INPUT "UN I CORN  AGAIN" ;H* 

320  I FH$<> " NO " THENRUN 
325  END 

330  I FK+FOZTHENPR I  NT "  THE  UNICORN  BEAT  YOU" 

340  RETURN 
350  PRINT 

360  PR I NT "YOU  HAVE  BEATEN  THE  UNICORN" 

370  PR  I  NT  "YOUR  IQ  IS".;T*J+J 
380  RETURN 
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This  program  introduces  an  idea  you  can  use  in  many  games  —  the 
"degree  of  difficulty".  Generally,  the  "degree"  can  be  used  directly  to 
multiply  or  divide  something,  or  to  be  added  to  or  taken  away  from  the 
limits  on  a  FOR/NEXT  loop.  In  other  games,  you  might  have  to  add  lines 
like  (if,  say  A  was  the  degree):  IF  A  =  1  THEN  G  =  200,  or  IF  A  >  7  THEN 
GOSUB  90.  Look  back  at  some  of  the  earlier  programs  in  this  book,  and 
work  out  ways  of  modifying  them  in  the  light  of  later  things  you  have 
learned. 

The  "degree  of  difficulty"  can  easily  be  worked  into  the  following  program. 
However,  as  it  becomes  more  and  more  difficult  already  as  it  proceeds,  it 
might  be  better  to  make  it  a  little  easier  before  adding  the  option  of 
increasing  the  difficulty.  Lines  170  and  280  are  the  ones  to  modify  to  make 
the  game  simpler,  and  it  is  here  that  the  "degree"  factor  can  be  added: 

10  PRINT'TECHO  CHAMBER" 

20  Z=INT<8#RNIKD>+1 
30  F0RG=lT0Z+5 
40  B=INT <4#RNB< 1 ) )+l 
50  I FB®  1 THENA$= " K I DUO " 

60  I FB=2THENA$= 11  SMART  ONE" 

70  I FB=3THENA$® " GEN I US " 

80  I FB=4THENA*=" COMPUTER  FREAK" 

90  K= I NT  < 1 00000#RNB  < 1 ) ) 

100  PRINT 
110  PRINT 

120  PRINT"TRV  N0.";GJ"0UT  0F";Z+5 
130  PRINT 

140  PR I NT "THE  NUMBER  VOU  HAVE  TO" 

150  PR  I  NT  "REMEMBER.- "  >  .-A$ 

155  FORI=1TO3000 : NEXT 
160  PRINT" IS". :K 
170  FORJ=1TQ800/G 
180  NEXT J 
220  GOSUB280 

230  PR I NT "OK  ";A$; " , WHAT  WAS" 

240  INPUT "THE  NUMBER" ;H 
260  IFH=KTHEN330 
270  GOTO420 
280  FORJ=1TO500*G 
290  PR I NT "3" 

300  NEXTJ 
310  RETURN 
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330  PRINT"^flVfl,";fl$,"V0U  GOT  IT  RIGHT" 

348  PR I NT "WHEN  READY  FOR  THE  NEXT  ONE," 

350  I NPUT " PRESS  RETURN " ; C$ 

370  IFC$On "  THEN  STOP 
380  PR  I  NT  "T 
390  IFG-Z+5THEN440 
400  NEXTG 

420  PRINT"™.!  BLEW  IT,";fl$ 

430  END 

440  PR I NT "YOU  SURE  HAVE  fi", "PRODIGIOUS" 

450  PR I NT "MEMORY, " ; 

460  END 

In  this  program,  which  puts  a  number  in  the  range  from  zero  to  99999  on 
the  screen,  and  then  asks  you  to  remember  it  for  a  time  period  which  gets 
longer  with  each  new  number,  note  that  lines  40  to  80  control  what  A$  will 
be  in  each  run  through  the  master  FOR/NEXT  loop.  A  similar  approach 
was  used  in  SNAKES  AND  LADDERS  and  ROADRACE.  Line  280,  as  you 
can  easily  see,  determines  how  long  the  delay  loop  will  be.  Have  a  look  at 
the  listing  for  line  330,  noting  the  comma  between  the  words  IT  and 
RIGHT.  If  the  comma  was  not  here,  the  word  RIGHT  would  scroll  around, 
half  on  one  line  and  half  on  the  other,  when  D  equals  4.  Can  you  see  why? 

More  things  to  do  with 
your  VIC 

Lets  look  at  some  other  things  you  can  do  with  your  VIC. 

Many  ideas  which  are  put  forward  for  personal  computers  —  such  as 
running  the  heating,  or  for  use  as  a  diary  or  telephone  directory  —  are 
really  not  practical.  These  are  the  kind  of  things  which  can  be  done  far 
more  easily  and  efficiently  with  a  set  of  cards  and  a  pen,  or  a  piece  of  paper 
and  a  pen,  than  they  can  with  the  computer.  For  the  time  being,  given  the 
memory  available  on  your  VIC,  the  need  to  load  programs  into  it  byte  by 
byte  from  an  outside  source,  and  the  fact  that  it  needs  to  be  plugged  in  all 
the  time  (and  run  a  display  screen  as  well)  to  be  of  any  use  at  all,  precludes 
it  from  those  sorts  of  applications. 

Many  people  find  they  initially  use  their  VICs,  regardless  of  why  they  think 
they  bought  them,  to  play  and  write  games.  From  this  they  learn  familiarity 
with  the  computer,  and  learn  to  program.  But,  many  people  ask,  what 
then? 

This  section  of  the  book  will  look  at  some  of  the  possibilities. 
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RECORD  KEEPING:  The  VIC  is  very  useful  as  an  adjunct  to  keeping 
records  like  names  of  members  of  your  club,  or  the  records  or  cassettes  in 
your  music  collection,  or  the  numbers  of  trains  you  have  spotted  IF,  and 
this  is  a  big  if,  you  want  to  sort  the  information  into  order  (such  as 
alphabetical,  or  highest  to  lowest,  or  by  some  other  category  such  as  age), 
or  you  wish  to  extract  something  out  about  it  (such  as  the  number  of  club 
members  you  have  who  live  in  Cambridge,  or  the  number  of  records  you 
have  by  The  Beatles  which  were  released  before  1 970).  Unless  you  want  to 
do  this  sort  of  manipulation  with  the  information  you  have,  the  data  is  best 
kept  on  cards,  but  it  is  an  invaluable  service  if  you  need  to  work  with  the 
data  in  some  way. 

INVENTORY  MANAGEMENT:  The  size  of  the  memory  you  have  will 
obviously  dictate  the  kind  of  inventory  records  you  can  keep.  If  you,  or 
your  parents,  run  a  small  store,  you  may  well  find  that  you  can  divide  the 
stock  into  types,  and  keep  one  type  (such  as  canned  goods)  in  one 
cassette  data  file,  Alternatively,  if  you  run  a  pub,  you  may  find  the  kinds  of 
goods  you  have  to  keep  in  stock  (15  types  of  beer,  snacks  like  crisps  and 
peanuts,  various  mixers  and  whatever)  can  be  fairly  easily  kept  within  the 
memory  you  now  have.  You  can  fairly  easily  write  a  program  into  which 
you  enter  the  sales  from  each  day,  and  at  the  end  of  each  week,  the 
program  tells  you  how  much  to  order. 

STAFF  PAYROLL:  If  you  have  a  small  firm,  you  may  well  find  that  the  time 
taken  to  write  a  program  to  work  out  what  you  should  pay  each  employee 
each  week  will  be  well  rewarded.  Such  information  as  tax  could  be 
automatically  calculated,  plus  other  deductions,  and  if  you  hook  up  a 
printer  to  your  VIC,  there  is  no  reason  why  you  can't  get  the  computer  to 
print  out  the  pay  slip  for  you.  Of  course,  unless  you  have  employees  with 
sufficiently  different  pay  levels  and  deductions  to  make  this  worthwhile, 
you  may  prefer  to  continue  with  your  present  pencil,  paper  and  calculator 
method  of  working  out  pay. 

ROUTINE  CORRESPONDENCE:  Without  a  printer,  you  cannot  do  this. 
But  you  may  find,  especially  if  you  are  organiser  of  a  club  which  requires 
you  to  correspond  with  a  reasonably  large  membership,  that  a  standard 
letter  —  with  provision  for  adding  the  person's  name  and  address  at  the 
beginning,  plus  some  personalised  material  at  the  end  of  the  letter  —  could 
be  used  to  print  out  the  letters  as  you  demand. 

EDUCATION:  This  is  a  very  big  area,  where  your  VIC  can  be  used  with 
good  effect.  Not  only  for  the  kind  of  material  we've  discussed  in  the 
education  section  of  this  book,  but  for  more  sophisticated 
question/answer/grading  programs  that  will  teach  you  as  much  when 
you're  entering  the  program  as  when  you're  actually  running  it.  No  matter 
which  subject  you're  studying,  you'll  probably  be  able  to  discover  an 
enjoyable  way  to  incorporate  the  VIC  into  your  study,  and  —  as  I  said  — 
you'll  probably  learn  as  much  from  programming  it  to  help  you  as  you  will 
from  running  the  program. 
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It  is  very  simple  to  create  a  number  of  simple  interactive  programs  to  use 
with  young  children,  which  will  help  them  recognise  such  things  as 
counting  sequences,  letters  of  the  alphabet,  simple  arithmetic.  If  you  use  it 
with  young  children,  never  force  them  to  stay  at  the  VIC  for  a  moment 
longer  than  they  want  to.  They'll  think  of  it  as  a  game  which  they'll  return 
to  over  and  over  again  if  they  are  not  forced  to  do  so,  and  the  familiarity 
they'll  gain  with  working  with  computers  will  be  worth  as  much,  in  terms 
of  their  education,  as  will  the  material  they'll  learn  from  the  program. 

USERS  CLUBS:  You're  sure  to  find  other  people  in  your  area  with  VICs.  A 
simple  ad:  "VIC  addict  seeks  others  with  similar  affliction  in  Preston, 
phone  XCB  HHDG"  could  bring  other  owners  crawling  out  the  woodwork, 
all  anxious  to  talk  about  their  computers,  and  to  share  programs  and  ideas. 
All  over  the  country,  small  groups  of  five  to  a  dozen  people  meet  in  each 
others  homes  to  swap  ideas,  programs,  hardware  tips,  and  sort  out 
problems.  If  you  find  your  parents  or  partner  not  entirely  literate  in  the 
computer  field,  you  may  well  become  'starved'  for  someone  to  talk  to. 
Starting  your  own  local  users'  group,  rather  than  waiting  for  someone  else 
in  the  area  to  start  one,  is  a  great  way  to  meet  other  owners  in  the  area. 

PERSONAL  ACCOUNTS:  This  is  another  area  where  your  VIC  can  be  very 
useful,  especially  if  you  do  not  use  it  as  the  final  source  of  information 
about  the  state  of  your  cheque  book  or  whatever,  but  rather  decide  to  use 
the  computer  program  as  a  general  indication  of  the  mess  (or  otherwise) 
your  personal  finances  are  in.  Final  totting  up  should  be  done  with  the  old 
standby  of  calculator,  pencil  and  paper. 

SIMULATING:  This  is  an  area  which  can  make  great  demands  on  your 
programming  ability,  but  which  can  provide  many  enjoyable  and  useful 
hours  at  the  computer.  If,  for  example,  you  wanted  to  find  out  what  you 
should  do  with  your  stocks  and  shares,  you  could  feed  them  in,  with  their 
current  market  values,  along  with  the  way  the  prices  for  these  have 
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changed  in  the  past  month,  and  project  the  trend  forward  for  a  month. 
This  could  indicate  not  only  which  stocks  you  should  sell,  or  which  you 
should  get  rid  of,  but  just  what  value  your  portfolio  is  likely  to  have  at  the 
end  of  that  period. 

Of  course,  this  is  a  simplistic  example,  and  one  which  would  hardly  give 
very  useful  information  on  what  you  should  do  with  that  bulging  portfolio, 
but  it  may  give  you  some  idea. 

Another  idea:  You  could  feed  in  your  annual  salary  over  the  past,  say,  five 
years,  noting  how  it  has  changed  from  year  to  year,  add  a  counter¬ 
indicator  on  the  rates  of  inflation  in  those  years,  and  find  out  not  only  how 
your  real  spending  power  has  changed  in  the  period,  but  assuming  the 
trends  you've  observed  continue,  how  it  will  grow  (or,  horrors,  shrink)  in 
the  coming  years. 

MAKING  MONEY:  Ah,  you  say,  now  we  come  to  something  really 
worthwhile. 

I  will  start  with  a  warning.  Many  of  these  ideas  will  seem  impracticable,  and 
will  not  be  applicable  by  you,  but  they  may  well  start  you  thinking  of  the 
kinds  of  things  you  could  do  with  your  VIC  which  could  enhance  your 
income  a  little  (or  even  a  lot). 

ARTICLES:  Many  people  have  found  that  writing  articles  for  computer 
magazines  is  a  good  way  to  enhance  their  income.  To  write  an  article 
which  is  accepted,  and  the  magazines  in  Britain  tend  to  have  far,  far  more 
articles  than  they  can  ever  print,  you  must  work  out  three  things: 

(1 )  Exactly  what  one  thing  will  the  article  teach/demonstrate/discuss? 

(2)  What  sort  of  computer  owners  (ie  what  machine,  or  price  bracket,  or 
user,  such  as  hobbyist,  businessperson  or  whatever)  will  be  likely  to 
be  interested  in  the  article? 

(3)  Which  magazine  will  it  be  sent  to? 

Unless  you  can  answer  those  three  questions,  you  haven't  got  an  article, 
you've  got  a  vague  idea  or  a  concept.  And  no-one  will  publish  that.  Buy 
the  computer  magazines,  all  of  them  if  you  can  afford  to,  but  certainly  buy 
the  ones  that  you  intend  to  write  for.  In  mid  to  late  1981,  the  British 
magazines  were  all  paying  between  £17  and  £45  per  article,  with  more  for 
photographs,  programs  and  diagrams  if  these  were  related  to  the  article. 

WHERE  DO  YOU  SEND  THEM?  The  major  magazines  in  this  country  are: 

PRACTICAL  COMPUTING,  IPC,  Quadrant  House,  The  Quadrant,  Sutton, 
Surrey,  SM2  5AS  (01-661  3500) 

YOUR  COMPUTER  -  at  the  same  address  as  PRACTICAL  COMPUTING 
PERSONAL  COMPUTER  WORLD,  Sportscene  Publishers,  14  Rathbone 
Place,  London,  W1P  IDE  (01  -  637  7991/2/3) 
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COMPUTING  TODAY,  145  Charing  Cross  Road,  London,  WC2H  OEE.  (01 
-437-1002/7) 

MICROCOMPUTER  PRINTOUT,  -  and  VIC  Computing,  PO  Box  48, 
Newbury,  RBI 6  OBD  (0635  201  131) 

The  main  contacts  at  these  publications  are  (in  September,  1981): 

PRACTICAL  COMPUTING  -  Peter  Laurie 
YOUR  COMPUTER  -  Duncan  Scot 
PERSONAL  COMPUTER  WORLD  -  David  Tebbutt 
COMPUTING  TODAY  -  Henry  Budgett 

MICROCOMPUTER  PRINTOUT  and  VIC  Computing  -  Richard  Pawson 

You'll  find  there  are  a  number  of  small  publications  (such  as  VIC 
Computing)  which  are  'machine-specific'.  They  are  often  printed  by  users' 
groups  or  by  the  manufacturer,  but  welcome,  and  may  pay  for,  suitable 
articles. 

There  are  also  many  other  computer  magazines  in  Britain  (such  as 
EDUCATIONAL  COMPUTING  (Robin  Bradbeer  is  the  contact  there)  and 
WHICH  Computer)  which  deal  with  more  specific  markets.  If  you  can  write 
for  these  markets,  pick  up  a  copy  of  the  magazine  from  your  local  shop, 
and  see  what  sort  of  style  the  articles  are  in,  and  make  sure  yours  fits  the 
pattern. 

BOOKS:  Program  collections  which  are  aimed  at  a  specific  machine,  or 
machines,  seem  to  sell  best.  Wander  into  your  local  computer  shop,  if  you 
have  one,  or  into  one  of  the  bigger  W  H  Smiths,  or  Foyles  in  Charing  Cross 
Road,  London,  and  have  a  look  at  the  kind  of  books  they  are  selling.  Lion 
House,  in  Tottenham  Court  Road,  London  (leave  Tottenham  Court  Road 
tube  station  by  the  exist  to  the  Dominion  Theatre,  then  walk  away  from 
Centrepoint  and  you'll  come  to  it)  have  a  very  wide  range  of  computer 
books  which  will  give  you  more  ideas. 


You  can  write  a  book  of  programs,  or  a  book  on  how  to  write  programs,  or 
—  if  you're  a  hardware  buff  —  how  to  build  peripherals  for  computers. 
Booklets,  even  leaflets,  that  tell  owners  how  to  convert  listings  given  for 
other  machines  into  their  own  language  can  be  very  popular,  especially  if 
you  add  a  few  extra  programs  in  as  well. 

You  could  write  a  book  to  help  people  choose  the  right  computer  for  their 
needs,  explaining  the  features  and  drawbacks  of  each  one.  An  "idiot's 
guide"  explaining  how  computers  work  could  be  popular  (if  you  do  write 
such  a  book,  please  send  me  a  copy,  I'd  love  to  find  out),  or  a  guide  to  lead 
a  first-timer  through  the  jungle  of  computer  jargon. 

There  seems  to  be  an  infinite  market  for  books  on  how  to  program  in 
BASIC.  No  matter  how  many  books  are  published,  there  seems  to  be  room 
for  just  1 0  more. 
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Have  a  look  at  other  computer  books.  You'll  find  many  of  these  will 
enhance  and  expand  your  interest  in  your  computer.  Some  books  I've 
found  useful  are: 

Game  Playing  in  BASIC  —  Donald  D  Spenver  (Hayden) 

The  First  Book  of  Microcomputers  —  Robert  Spencer  (Hayden) 

Z80  Software,  Gourmet  Guide  and  Cookbook  —  Nat  Wadsworth  (Scelbi) 
Fifty  BASIC  Exercises  —  J  P  Lamoitier  (Sybex) 

Computer  Programming  in  BASIC  for  Everyone  —  T  Dwyer  and  M 
Kaufman  (Radio  Shack) 

Microsoft  BASIC  —  Ken  Knecht  (dilithium  Press) 

The  BASIC  Cookbook  —  Ken  Tracton  (Radio  Shack) 

BASIC  Computer  Games  —  edited  David  Ahl  (Creative  Computing  Press) 
More  BASIC  Computer  Games  —  edited  David  Ahl  (Creative  Computing 
Press) 

Computer  Programs  That  Work!  Lee,  Beech  and  Lee  (Sigma  Technical 
Press) 

Computer  Games  for  businesses,  schools  and  homes  —  J  V  Nahigian  and 
W  S  Hodges  (Winthrop)  Comp 

57  Practical  Programs  and  Games  in  BASIC  —  Ken  Tracton  (TAB  Books) 

You  may  find  some  material  of  interest  in  books  published  by  Database 
Consultancy,  which  include: 

GETTING  ACQUAINTED  WITH  YOUR  ACORN  ATOM  -  Trevor  Sharpies 
&  Tim  Hartnell 

GETTING  ACQUAINTED  WITH  YOUR  ZX81  -  Tim  Hartnell 
MASTERING  MACHINE  CODE  ON  YOUR  ZX81  OR  ZX80  -  Tony  Baker 
50  RIP-ROARING  GAMES  FOR  THE  ZX80  AND  ZX81  -  edited  Jeff 
Weinrich 

If  you've  written  a  computer  book  which  you'd  like  us  to  publish,  send  us  a 
letter  with  sortie  information  about  the  book,  and  we'll  let  you  know  if  your 
idea  is  of  interest,  Just  write  to:  INTERFACE,  Book  publishing,  44  -  46 
Earls  Court  Road,  London,  W8  6EJ. 
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Cave  Master 

You  will  recall  that,  earlier  in  this  book,  a  program  under  the  imaginative 
name  of  TIME  WARP  was  listed.  The  next  program  uses  the  same  basic 
program  to  produce  something  a  little  more  down  to  earth.  All  of  the 
programs  in  this  book  can  (and  should)  be  developed  by  you  in  whatever 
direction  you  prefer.  Only  by  doing  this  will  you  develop  your  own 
programming  skills.  Anyway,  here  is  one  way  TIME  WARP  can  be  warped. 

1  G=9 

2  PRINT"XAVE  MASTER" 

3  G0SUB57 

4  H=0 

5  Ef55"  CRAZED  WIZARD" 

6  F$="WICKED  WITCH" 

9  ,T=INT<2#RNDa>> 

10  IFJ=lTHENLf=E$ 

11  IFJ=0THENL$=F$ 

12  IFGC1THEN47 

13  G0SUB57 

14  PR I NTCHRf ( 1 92-G ) ; "  AURA  T0NE";G 

15  H=H+1 

16  IFH=17THEN50 

17  G0SUB57 

19  PR I NT "LEVEL  OF  MAGIC"; 17-H 

20  PR  I  NT  "HORRORS.-  ";L$.-  "AHEAD" 

21  1NPUTB* 

22  G0SUB53 

23  IFH=17THEN50 

24  K= I NT  <  2#RND  < 1 ) ) 

25  IFK=0THEN31 

26  G=G-2 

27  G0SUB57 

28  PR I NT "THE  ";L$, "ZONKED  VOU" 

29  INPUTA$ 

30  G0T09 

31  G=G+1 

32  PR I NT "VOU  ZAPPED  THE",L$ 

33  INPUTD$ 

34  G0SUB53 

35  G0SUB57 

36  PR I NT "THE  FOOLS  GOLD  IS" 
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37  PR I NT "WITH IN  YOUR  GRASP" 

39  INPUTGf 

40  M*INT<6#RND<1>>+1 

41  IFPK6THEN9 

42  G0SUB53 

43  G0SUB57 

44  I FG>0THENPR I NT " YOU  DIB  IT" 

45  PRINT"WITH" ;  17-H.-  .•  "MAGIC  SPELLS  LEFT" 

46  END 

47  G0SUB57 

48  PR I NT "DEATH  COMES  TO  US  ALL" 

49  END 

50  G0SUB57 

51  PR I NT "YOU  TOOK  TOO  LONG" 

52  G0T048 

53  FORW=1TOINT<1000*RNIK1)) 

54  NEXT 

55  PR  I  NT  "T 

56  RETURN 

57  PRINT 

58  PRINT 

59  PRINT 

60  PRINT 

61  RETURN 


Alpha 

In  this  game,  the  VIC  thinks  of  a  letter  of  the  alphabet,  and  you  have  to 
guess  it.  Demanding,  huh? 

10  B=RNB<-TI> 

29  B=0 

30  0=1 

40  A= I NT  <  26#RNB  < 1 ) >  +65 

50  PRINT" I  AM  THINKING".-  "OF  A  LETTER" 

60  PRINT 

70  PR I NT "ENTER  YOUR  GUESS" JC 
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80  GETA$ 

90  IFA$=" "THEN89 
110  I FfiSC  <  fl$ ) =ATHEN 1 90 
120  PRINT":]"  ;A$ 

130  PR I NT "TRY  CLOSER  TO  THE” 

140  I FASC  <  A$  ) <ATHENPR I NT " END " ; 

150  I FASC  <  A$ ) >ATHENPR I NT " START " J 
160  PRINT"  OF  THE  ALPHABET" 

170  C=C+1 
180  GOTO60 

190  PRINT" WES,  I  WAS  THINKING  OF  ”;A* 

200  PRINT 

210  PR I NT "THAT  TOOK ";C" GUESSES” 

220  PRINT 

230  I FC<BORB=0THEND=C 

240  PR I NT "YOUR  BEST  SCORE  THIS  GAME  IS";B 
250  INPUT "PRESS  RETURN ";A$ 

260  PRINT 
270  GOTO30 


Turning  the  Tables 

There  are  many,  many  programs  in  which  the  computer  thinks  of  a 
number,  and  the  human  player  has  to  guess  it.  There  are  two  of  them  in 
this  book.  This  next  program,  written  by  Trevor  Sharpies,  turns  the  tables. 
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2  PRINT'WSTIC" 

4  PRINT 

6  PR I NT "THINK  OF  A  NUMBER" , "BETWEEN" 

8  PR I NT "ONE  AND  100  ANB  I", "WILL  GUESS  IT" 

9  PRINT 

10  PR I NT "PRESS  RETURN  TO  PLAY" 

12  INPUT A* 

14  G0SUB86 
16  T=0 
18  2=100 
20  V=1 

22  X=INT<100#RNIK1))+1 
24  PRINT"!  GUESS" ; X 
26  PRINT 
28  PRINT 

30  PRINT, "RIGHTCR)  OR WRONG <W>" 

32  T=T+1 
34  INPUTB$ 

36  IFB*="R"THEN66 
38  G0SUB86 

40  PR I NT "MY  GUESS  WASMX 
42  PR  I  NT  •'  PR  I  NT "  H I GHER  <  H  >  OR" 

44  I NPUT " LOWER  <  L  > " J  C$ 

48  G0SUB86 
50  IFC$="L"THEN62 
52  V=X 
54  S=2~V 

56  X=Y+ 1 NT  <  S#RNB  < 1 ) ) + 1 
58  IFX=S+YTHEN56 
60  G0T024 
62  Z=X 
64  G0T054 
66  G0SUB86 

68  PRINT"BOY, AIN'T  I  BE  SMART  ONE?" 

70  PRINT" I  GOT  IT  IN  JUST";T 

72  PR I NT " TR I ES " : PR I NT  =  PR I NT " COULB  YOU  FACE  ANOTHER" 
74  I NPUT " GAME , BUB " ; B$ 

78  G0SUB86 

80  I  FB$= 11  YES "  THEN4 

82  PR I NT "BYE  BYE  THEN  WET" , "BLANKET" 

84  G0T082 
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86  FORF« 1 TO I NT < RNB < 1 >#5080#RND< 1 > ) 
88  NEXT 
90  PR I NT" 3" ; 

92  RETURN 


Nine  Lives 

In  HANGCAT  one  player  inputs  a  word,  one  letter  at  a  time,  pressing 
RETURN  between  each  letter.  Then  the  second  player  tries  to  guess  the 
word,  pressing  RETURN  between  each  letter  he  or  she  wants  to  try.  If  the 
second  player  is  wrong,  he  or  she  loses  a  life  (hence  the  title).  If  the  guess 
is  right,  the  program  prints  out  the  correct  letter  in  its  correct  position  in 
the  word. 

1  PRINT /'HANGCRT" 

2  PRINT"PLAYER  1 > TVPE  IN  fl  WORD  OF  6  LETTERS  OR  LESS" 

3  PRINT 

4  PRINT 

5  0*="-" 

6  H$="-" 

7  J$="-" 

8  K$="-" 

9  L$="~" 

10 

11  T=0 

12  INPUTA$ 

13  INPUTB* 

14  INPUTC* 

15  INPUTD* 

16  INPUTE* 

17  INPUTF$ 

19  PRINT"3?EADV  TO  PLfiV?Y0U" , "HAVE  9  LIVES" 

20  INPUT "WHAT  IS  VOUR  GUESS" J  X$ 

22  PR  I  NT  "T 

23  IFX$=A$THENGOSUB30 

24  I FX$=B$THENG0SUB33 

25  IFX$=C$THENG0SUB36 

26  IFX$=D$THENG0SUB39 

27  I FX#=E$THENG0SUB42 

28  I FX$=F $THENG0SUB45 

29  G0TQ48 
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30  G$=A$ 

31  T=T-1 

32  RETURN 

33  h$=b$ 

34  T=T-1 

35  RETURN 

36  J$=C$ 

37  T=T-1 

38  RETURN 

39  K*=B$ 

40  T=T-1 

41  RETURN 

42  L$=E$ 

43  T=T-1 

44  RETURN 

45  M$=F$ 

46  T=T-1 

47  RETURN 

48  PRINT 

49  PRINTG$;h$;,t$;k$;l$;m$ 

50  PRINT 

5 1  I FGf =fl$RNBH* =B$RND J$=C$ANDK$=D$RNDL$=E$RNDM$=F$THEN68 

52  PRINT 

53  T=T+1 

54  IFT^THEMS^ 

55  PRINT"YOU  HR VE";9-T, "LIVES  LEFT" 

56  PRINT 

57  PRINT 

58  GOTO20 

59  PRINT"VOU/RE  BEAD" 

60  PR  I  NT  "THE  WORD  WflS",fi$;E$;C$;B$.;E$;F$ 

61  INPUT  "ANOTHER  CRTMJ* 

63  PR  I  NT  "T 

64  I  FU$0  "  NO  "  THEN2 

65  END 

66  PRINT 

67  PRINT 

68  PRINT"VRV  CRT" 

69  GOTO60 
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Nim 

The  random  number  generator  cooks  up  an  ovenful  of  buns,  which  you 
and  the  computer  proceed  to  scoff.  There  is  a  limit  to  how  many  buns  you 
can  eat  at  a  time,  and  the  loser  is  the  person  who  eats  the  last  bun.  It  is 
fairly  easy  to  write  a  program  which  will  never  lose  this  game,  but  such  a 
program  rapidly  becomes  boring,  if  not  infuriating.  Therefore,  this  program 
has  built-in  fallibility,  although  it  will  still  win  more  than  half  the  games  it 
plays. 

2  PRINT"rJ";TflB<8);  "BUN  FIGHT" 

3  M=0 

4  L=0 

5  Z= I NT  <  20#RNB  <  1  > + 1 1  > 

6  H=INT<3#RNBa>+4> 

7  I FM=0THENPR I NT " SCONES  LEFT" ;Z, "THE  MOST  YOU  CRN  TAKE  IS";H 

8  I  FE>0RNBM=0THENPR  I  NT "  YOU  T00K".;E,  "I  TOOKMQ 

9  F0RK=1T0Z 

10  PRINT"# 

11  I FRND  < 1 X . 35THENPR I NT 

12  NEXTK 

13  PRINT 

14  PRINT 

15  I FM* 1 THENPR I NTTRB <  8 ) ; " YOU  WIN" 

16  IFM=2THENPRINTTRB<12>.;"1  WIN" 

17  IFM>0THEN15 

18  PRINT 

19  PR I NT "HOW  MRNY  WILL  YOU" : INPUT "TAKE"; E 

21  IFE<10RE>HTHEN19 

22  Z=Z-E 

23  IFZ>0THEN26 

24  M=2 

25  G0T034 

26  Q=Z-1~INT<<Z-1)AH+1)>*<H+1> 

27  I FQ*0THENQ= I NT  <  H#RND  < 1))+1 

28  IFQ>ZTHEN26 

29  IFZ>F+2RNBRNIK  1 X. 5THENQ=Q+ 1 NT < RNB < 1 5> 

30  I F Q>H0RQ< 1 THEN26 
32  Z=Z-Q 
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33  IFZ=0THENf1»l 

34  PR  I  NT  "T 

35  GOTO? 


Life 


1  PR  I  NT  "T 
10  K=0*RHIK-TI> 

20  BIMfi(63)  .•  B<63)  > E(7> 

30  FORR=0TO7 
40  REflDE<fl) 

50  NEXTfi 

60  FORfl=0TO63 

70  B<R>=32 

80  NEXTfi 

90  F0Rfi=lT013 

100  M= I NT  <  64#RNB  <  1 )  ) 

110  B<M>=79 
120  NEXTfi 
130  GOTO250 
140  FORfi=0TO63 
150  H=0 
160  FORE=0TO? 

170  J=fi+E<E) 

180  IFJ<0ORJ>63THEN280 
190  I Ffi  <  J  > =79THENH=H+ 1 
200  NEXTE 

210  I FH02THENB  <  fi  )  =32 
220  I FH=3THENB  <  fi  > =79 
230  NEXTfi 
240  K=K+1 

250  PRINT"  8GENERRT I  ON  " K 
260  PRINT 
270  FORfl=0TO63 
280  fi<fi:)=B(fl> 

290  NEXTfi 
300  FORfl=0TO7 
310  PRINT 
320  FORB=0TO7 
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330  PRINT" S" CHR$< A<63-A-8#B>  > ; 

340  NEXTB,A 
350  PR  I  NT  "T 
360  FORA=0TO7 
370  PRINTTflBO); 

380  FORB=0TQ7 

390  PR I NTCHR$  <  A  <  A+8#B  >  >  > 

395  NEXTB 

400  PRINT 

405  NEXTA 

410  INPUTAf 

420  IFA$*" "THENEND 

430  GOTO 140 

440  BATA9,8,7,l,-l,-7J-8,-9 

Cubik 

This  program  produces  a  two-dimensional  version  of  that  cube  puzzle 
which  recently  swept  the  world.  In  CUBIK,  you  have  a  flat  surface  divided 
into  16  segments,  numbered  (of  course)  from  one  to  16.  When  you  run  the 
program,  you'll  see  a  flat  surface,  with  the  numbers  one  to  four  arranged 
neatly  on  it.  This  is  the  arrangement  you  want  to  end  up  with  after  rotating 
the  pieces  in  the  CUBIK.  The  program  randomly  twists  the  CUBIK,  and  you 
have  to  get  it  back  in  order.  You  do  so  by  entering  the  number  of  the  square 
you  wish  to  'rotate'.  It  moves  this  square,  and  the  other  three  around  it,  one 
square  clockwise.  Run  it,  and  you'll  understand.  The  key  to  the  square 
number  to  enter  for  rotation  is: 

12  3  4 

5  6  7  8 

9  10  11  12 

13  14  15  16 

10  F=RND<-TI> 

20  F=1 

30  BIMR<4)>B<16) 

40  B=1 

50  F0RD»1T04 

This  routine  sets  up  the  initial  CUBIK  arrangement. 

60  C=0 

70  IFB=1THENC=1 
80  IFB=3THEN02 
90  IFB=9THEN03 
100  IFB=11THEN04 
110  B<B)*C 
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120  B(B+1)=C 
130  B<B+4)=C 

140  B<B+5)=C 
r=a 

160  IFB»1THENC=2 
170  IFB=3THENC=6 
180  IFB=9THENC=2 
190  B=B+C 
200  NEXTB 
210  GOSUB370 

220  IFF<1 1THENX=INT<1 1*RNB< 1 )  >+2 
230  I FF> 1 0THEN I NPUTX 
240  I FX=5ORX=9THEN220 


The  next  routine  makes  the  twist. 


250  FK1)=B<X> 

260  B<2)=B<X+4> 

270  fl(3>*B<X+3) 

280  R<4)=B<X-1> 

290  B<X)=fi<4) 

300  BCX+4)=fl<l> 

310  B<X+3>=fl<2> 

320  BCX-1 )=R<3) 

330  G0SUB370 

340  I FF< 1 0THEN I NPUTUf 

350  F=F+1 

360  GOTO220 


This  routine  prints  the  CUBIK. 

370  PR  I  NT  "T 
380  PRINT 
390  F0RB=1T016 
400  PRINTB<B); 

4 1 0  I FB/4s I NT  <  B/4 ) THENPR I NT : PR I NT : PR I NT 
420  NEXTB 

430  I FF< 1 0THENPR I NT " TW I ST » ; F 

440  I  FF>  1 0THENPR I  NT  "  MOVES  SO  FflR”;F-lPi 

450  RETURN 
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Outsmart 

A  very  brief  program  in  which  you  have  ten  guesses  to  find  the  number 
(between  1  and  200)  chosen  by  the  VIC.  The  clue  given  in  line  90  takes  a  bit 
of  getting  used  to,  but  once  you've  played  three  games,  you  should  be  able 
to  'read'  it  without  any  difficulty. 

20  fl- 1 NT  <  200*RNB  <  1  > ) + 1 
30  PR  I  NT  "T 
48  FORB=1TQ10 
50  PR  I  NT 11  GUESS  N0.";B 
60  INPUTC 
80  IFOATHEN140 

90  PR I NT "WRONG" ; C, , " CLUE- "  SQR  < PBS < A-C ) ) 

100  NEXTB 
120  END 

140  PRINT"VES..VOU  GOT  IT  IN";B 

Logica 

This  is  a  game  in  which  you  try  to  find  a  missing  RAM  chip  on  a  1 5  x  1 5 
grid,  using  nothing  but  your  wits  and  a  patented  RAM-detector. 

10  PR  I  NT  "T 
20  fl=INT < 15#RND< 1 ) )+l 
30  BSINT C 15#RND< 1 ) )+l 
40  C=1 

60  PRINT"RRM  IS  HIDING", "SEARCH"; C 
70  INPUTD 
80  INPUTE 

90  I FR=DANDB=ETHEN 1 70 
110  PRINTD; ", ";E; "NOT  THERE" 

130  PR I NT "RAM  DETECTOR  READS •  " ; <fl-D+l)#<B-E+l)/10 

140  C=C+1 
150  GOTO60 

170  PR I NT "YOU  FOUND  IT" 

180  PR I NT "YOU  SCORED ";300-9*C 

185  FORI=1TO500 

186  NEXT 
190  GOTO 179 

In  this  program,  the  RAM  is  hidden  at  A  and  B,  with  C  counting  the 
number  of  guesses  you  make.  Line  1 30,  the  'RAM  detector'  gives  a  very 
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useful  read-out,  and  within  two  or  three  games  you  should  have  mastered 
its  output.  Note  that  unlike  some  'hunting  on  a  grid'  games  there  is  no  limit 
to  the  number  of  guesses  you  can  make.  However,  you  should  obviously 
try  and  find  the  RAM  in  as  short  a  time  as  possible.  Your  score  (line  180)  is 
directly  related  to  the  number  of  attempts  you  had  to  make  to  find  the 
thing. 


Blackjack 

John  Scarne,  in  his  authoritative  SCARNE'S  ENCYCLOPEDIA  OF 
GAMES,  says  Blackjack  is  "the  most  widely  played  banking  card  game  in 
the  world".  It  is  relatively  simple  to  play:  The  players  try  to  get  as  close  as 
possible  to  a  total  of  21 ,  without  exceeding  21 .  Aces  count  as  either  1  or 
11,  and  Kings,  Queens,  and  Jacks  each  count  as  10.  This  program 
automatically  assigns  a  value  of  1  to  an  ACE  if  counting  it  as  1 1  would  force 
the  total  over  21 .  The  human  player  always  goes  first  in  this  version  of  the 
game.  After  each  card  is  handed  out,  you  have  the  option  of  taking 
another  one,  or  "standing",  that  is  staying  as  you  are  (see  line  80).  The 
round  is  a  draw  if  both  of  you  reach  the  same  total,  and  it  is  less  than  21 .  If 
you  "bust",  that  is  you  exceed  21,  the  VIC  wins  that  round  automatically. 
The  PRINT  lines  in  this  program  are  a  good  example  of  computer 
arrogance. 

1  PRINT"!” 

10  GOTO 160 

20  CR= I NT  <11 $RHB  < 1 ) ) + 1 
30  IFCR=1 1ANBB+CA>21THENCA=1 
35  B=B+CA 
40  RETURN 

50  CR*INT<11#RNB<1))+1 
60  I FCA= 1 1 ANBB+CA>2 1 THENCA= 1 
65  B=B+CA 
70  RETURN 

80  PR I NT "ANOTHER  CfiRIKDOR  WILL  VOU  STAND <0V 
85  INPUTO 
100  RETURN 

110  PRINT" ANOTHER  GAME, " , "CARB  SHARP" 

120  INPUTA* 

130  PRINT".!" 

140  I FR$<> " VES " THENENB 
158  GOTO 160 
160  B=8 
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170  B=0  260 
130  GOSUB20  27© 
190  H=CA  280 
200  GOSUB20  290 
210  R=CA  30@ 
220  GOSUB50  310 
230  E=CA  320 
240  G0SUB58  330 
250  F=Ca  340 


B$="THE  COriFLITER  HRS" 
C$="THE  HUMAN  HAS" 
PRINTB$.:H 

printc*;e.;"AND";f 

print"totalling";e+f 

B=H+fl 

B=E+F 

IFB=21THEH440 

GOSUB80 


35@  IFG=1THEN490 
355  INPUTS* 

360  PR  I  NT  "T 

365  IF1K17THEH530 

370  IFB021THEHPRINTB*;D 

380  IFB021THENPRINTC*;B 

390  I  FB=BRNBB02 1 THENPR I  NT "  SO  THIS  ROUND'S  A  DRAW" 
400  IFD=21ANDB021THENPRINTB$, "  BLACK  JACK..." 

405  IFB>21THENPRINTC*; "  BUSTED  "SO  VIC  WINS..." 
410  I FD<=B0RD>2 1 THEN4 1 5 

412  PRINT" VIC  DESTROYS  HUMAN  WITH  A  BRILLIANT'S 
"DISPLAY  OF  CARD'S  "PLAYING" 

415  IFB>21THENPRINTB$;"  BUSTED" 

420  IFB>DANDB<:=21THENPRINT"'r'0U  WON 
SOMEHOW. .. 'S  "LUCK  I  GUESS" 


430  GOTO 110 

440  PRINTC*.: "  BLACKJACK" 

460  IFDO21THEN370 

470  PR I NT “BUT  SO  HAS  THE  CLEVER  COMPUTER 
SO  IT'S  A  DRAW" 

480  GOTO110 
490  GOSUB50 

500  PRINTC*;"  CARD" ; CR> "TOTAL :  'S B 
510  IFB>21THEN405 
515  INPUTS* 

520  GOTO340 
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530  PRINTS*.:  I) 

535  IHPUTIJ* 

540  G0SUB28 
560  PRINTS*, "CARD"; CP 
570  PR I NT "SO  ITS  TOTAL  IS";D 
575  INPUTU* 

580  IFD>21THEN415 
530  IFIK17THEN548 
600  GOTO370 


Kalki,  The  Mind  Reader 

This  game  is  self-explanatory.  Just  input  it,  RUN,  and  follow  the 
directions.  Once  you've  played  it  a  few  times,  you  can  change  the  PRINT 
statements  to  create  a  totally  new  game. 

10  PR  I  NT  "T 
20  GOTO90 
30  INPUTS* 

40  PR  I  NT  "T 
50  F0RJ=IT05 
60  PRINT 
70  NEXTJ 

75  PR I NT "KALKI,  THE  M I NS-RE ADERSAVS " 

80  RETURN 
90  OOSUB50 

100  PR I NT" WHO  OWNS  THIS  COMPUTER" 

110  INPUTC* 

130  PR I NT "PRESS  RETURN  AFTER" , "EACH  STEP" 

140  GOSUB30 

150  PR I NT "THINK  OF  A  HUMBER" 

160  GOSUB30 

170  PR I NT "DOUBLE  VOUR  NUMBER, ", "ADD  4" 

180  GOSUB30 

190  PR I NT "DIVIDE  BV  2, " , "THEN  ADD  6" 

200  GOSUB30 

218  PR I NT "SUBTRACT  THE  NUMBER, ", "VOU  FIRST  THOUGHT 
220  GOSUB30 

230  PR I NT "SUBTRACT  3,  " , "THEN  MULT I PL V  BV  5" 

240  GOSUB30 
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250  PR I NT "SUBTRACT  3  AGAIN  AND  DIVIDE  BV  2" 

260  OOSUB30 

270  PRINT "WRITE  DOWN  THE  NUMBER  YOU'VE  GOT" 

280  GOSUB30 

238  PR I NT "NOW  INPUT  THE  MONEY  IN  YOUR  POCKET" 
300  INPUTA 
310  GOSUB40 

320  PR I NT "THE  NUMBER  WRITTEN  DOWN  IS  11" 

330  GOSUB50 

340  PR I NT "WHEN  YOU  LEAVE, PLEASE" 

350  PRINT" GIVE  “;C$,  "£";  <A+5V5,  "AS  A  DONATION" 
360  END 


Chemin  de  Fer 

Baccarat  was  first  introduced  into  France  from  Italy  in  about  1490,  during 
the  reign  of  Charles  VIII.  It  is  most  unlikely,  historians  say,  that  Charles 
played  it  on  a  VIC.  The  Italian  game  was  called  Baccara,  and  this  game  — 
Chemin  De  Fer  —  is  a  distant  cousin  of  that  old  favourite.  VIC  Chemin 
De  Fer  is  based  on  a  dice  version  of  the  casino  game  which  is  usually 
played  with  cards.  You  and  the  computer  (the  "banker")  roll  five  dice 
each.  If  any  die  comes  up  2  or  5,  it  must  be  rolled  again.  You  add  the  pips 
on  dice  which  did  not  come  up  2  or  5,  and  then  you  add  to  this  the  total  of 
of  the  pips  from  the  dice  you've  rolled  again.  If  a  die  comes  up  2  or  5  the 
second  time,  it  counts  as  zero.  The  aim  is  to  get  as  close  as  possible  to  9,  or 
to  get  a  two-digit  number  ending  in  9.  The  program  automatically  strips  a 
two-digit  number  down  to  its  final  digit.  RUN  it  a  few  times,  and  you'll 
begin  to  see  why  this  game  is  so  popular.  The  program  allows  9  winning 
games,  with  dead-heats  (or  "stand-offs")  not  counted.  The  winner  is  the 
player  with  the  most  games  out  of  9. 

5  PR  I  NTT 
10  B1=0 
20  P1=0 
30  GOTO340 
40  D=0 
50  !>0 

60  F0RG-1T05 
70  fi= I NT  <  S*RNB  < 1 >  >  + 1 
80  IFR*20Rfi=5THENC=C+l 
<30  IFfl=2ORfl=5THENfl«0 
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100  printa; " 

110  s=s+a 

120  NEXTG 
130  PRINT 
140  PRINTS, 

150  IFB>9THENB=B-10 

160  PRINTS 

170  IFD>9THENB=B-10 

180  PR  I  NT  "TOTAL  ON  FIRST  ROLL  ISMS 

190  I FB=9THENPR I NT " LA  GRflNBE" 

200  I FB=8THENPR I NT " LA  PETITE" 

210  I FB=7THENPR I NT " NATURAL " 

220  I FC=0ORB=7ORB=8ORB=9THENRETURN 
230  PR I NT "MUST  ROLL  ";C; "AGAIN" 

240  FORflalTOC 

258  E= I NT  <  6#RNB  <!>>+! 

260  I FE=2ORE=5THENE=0 
270  B=B+E 
280  NEXTfi 
290  PRINTS, 

300  IFB>9THENB=B-10 

310  PRINTS 

320  IFS>9THENS=S-10 

330  RETURN 

340  PR I NT "BANKER" 

350  GQSUB40 

360  PR I NT "FINAL  TOTAL" ;S 
370  INPUTAi 
380  ,T=S 

390  PRINT"PLAVER" 

400  GOSUB40 
410  INPUTA$ 

420  PR  I NT "  BANKER  "  .•  ”  F'LAVER  " 

430  PRINTJ.S 

440  IFJ=BTHENPRINT , "STANS  OFF" 

450  IFJ=STHENGOTO510 
460  I F  J>STHENPR  I  NT  "  BANKER " 

470  I F J>BTHENB 1 =B 1 + 1 

480  I F J <BTHENPR I NT " PL AVER " ; 

490  IF JvSTHENF'  1  =P  1 + 1 
500  PRINT"  WINS" 
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510  PR I HI "TOTALS" 

520  PRINTB1.-P1 
530  I FB 1 +P 1 =9THENENB 
540  IHPUTA* 

550  PRIHT"T 
560  GOTO340 


Craps 

In  THE  COMPLETE  BOOK  OF  DICE  GAMES,  Skip  Frey  describes  Craps  as 
"the  premier  dice  game".  According  to  Mr.  Frey,  "it  is  played  everywhere 
from  back  alleys  to  posh  casinos  in  Las  Vegas  and  Monte  Carlo".  Despite 
this  glowing  description,  it  can  become  a  very  dull  game  indeed  when 
player  with  a  computer.  After  all,  to  play  the  game  you  just  roll  dice,  and  if 
you  have  your  trusty  computer  doing  this  for  you,  there  isn't  much  else  to 
do.  Therefore,  we've  jazzed  up  the  program  a  bit,  to  save  you  falling  asleep 
at  the  keyboard.  This  Craps  program  gives  you  a  starting  stake  of  $20,  and 
then  adds  to  it,  or  takes  away,  in  accordance  with  your  luck  with  the  dice. 

OFFICIAL  TERMS  FOR  CRAPS: 

NATURAL  —  A  7  or  an  1 1  on  the  first  roll  is  a  NATURAL. 

Roll  this,  and  you  win. 

CRAPS.  —  A  2,  3  or  12  on  the  first  roll  is  CRAPS.  Roll 
this,  and  you've  lost. 

POINT  —  A  4,  5,  6,  8,  9  or  10  on  the  first  roll  becomes 

your  POINT.  In  the  program,  the  variable  E  is 
your  point. 
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If  you  don't  roll  a  natural  or  craps,  you  continue  to  roll  until  you  'make  your 
point'.  In  this  game,  see  line  270,  you  win  a  grand  sum  if  you  make  your 
point.  However,  and  this  is  a  big  however,  if  you  throw  a  7  before  you 
make  your  point,  you  lose  (line  120).  The  program  subtracts  $3,  plus  a 
dollar  for  every  roll  of  the  dice  you've  made  in  that  game.  So  long  as  you 
manage  to  end  a  game  with  $1  or  more,  the  computer  will  offer  you  a  new 
game. 

5  M=20:PRIHT,,T 
10  fi=0 
20  E=9 

30  INPUT "PRESS  RETURN  TO  ROLL"; A* 

50  GOSUB320 
60  B=INT (6#RNIK  1 )  >+l 
70  C=INT(6*RNIK1))+1 
80  B=B+C 
90  A=A+1 

95  I FA=6THENPR I NT " T 
97  IFR=6THENA=2 
100  IFR=1THEN150 
110  IFB=ETHEN270 
120  IFB=7THEN300 

130  PR  I  NT  "THE  BICE  CAME  UP";B;C;  "TOTAL"  ;B 
140  GOTO30 

150  I FBS70RD= i 1 THEN 1 90 
160  I FB<40RB= 1 2THEN2 1 0 
170  E=B 
188  GOTO 130 

190  PRINT"V0U  ROLLED"  ;B.:  "SO  YOU  WIN" 

195  M=M+5+A 
200  G0T0228 

210  PR I NT" FATE  GAVE  V0U";B, "SO  YOU  LOSE" 

220  PR I NT "YOU'VE  GOT  t";M 

222  IFMCITHENSTOP 

225  INPUT  "ANOTHER  GAME"; At 

230  PR I NT" T 

250  I  FAtO  "  NO "  THEN  1 0 

260  END 

278  PR I NT "THAT  TIME  YOU  G0T";B 
280  M-M+5+fl 
290  GOTO220 

300  PRINT"F00L,Y0iJ  BLEW  IT  BY  ROLLING". ;D 
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395  M=M-3-A 
310  GGTO220 
320  FORF=1TO4000 
330  NEXTF 
340  RETURN 


Life  Expectancy 

There  was  a  light-hearted  life  expectancy  program  earlier  in  the  book.  The 
next  program,  based  loosely  on  actuarial  tables,  is  closer  to  a  "serious"  life 
expectancy  program. 


1  C=0 

2  PRINT"LIVES" 

3  R=71 

4  INPUT" ROE <  YRS  > " ; B 

6  G0SUB54 

7  I NPUT " MARR I EB " ; fl$ 

9  G0SUB54 

10  IFA$=,,VES"THENfl=76 

11  PR I NT" HR VE  VOU  BEEN  RICH  MOST  OF  YOUR" 

12  INPUT"LIFE<¥  OR  N)";C$ 

14  G0SUB54 

15  IFC$="Y"THENfl=A-3 

16  I NPUT "ARE  VOU  OVERWEIGHT";B$ 

18  G0SUB54 

19  I FBf = " NO " ORB<40THEN24 

20  P=0 

21  I  FB$=  "  YES  "  THEN  I  NPUT  "  BY  HOW  MANY  POUNDS" ;  P 

22  C=C+P 

23  G0SUB54 

24  PRINT"EXERCISE. NEVER, ", "SOMETIMES, OFTEN" 

25  INPUTE$ 

26  G0SUB54 

27  I FE$= " SOMET I MES " THENR=R+3 

28  I FEf = " OFTEN " THENR=R+5 

29  G0SUB54 

30  INPUT"RRE  VOU  OFTEN  TENSE" ;F$ 

32  G0SUB54 
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33  I FF$= " VES " THEN A=A~3 

34  IFF$="N0"THENA=A+3 

35  PRINT"BRINK:LITTLE<0>,MOB, <5>" 

36  INPUT"HEAW(  10) " G 

38  GQSUB54 

39  INPUT "DO  VOU  SMOKE"; H$ 

40  IFH$="VES"THENA=A-5 

42  G0SUB54 

43  INPUT "OFTEN  ILL";K$ 

45  I FKf = " VES " THEN A® A-3 

46  I FK$= " NO " THENA® A+3 

47  G0SUB54 

48  PR I NT "ESTIMATED  AGE  OF  BERTH" 

49  PRINT 

50  IFB>ATHENA=B+INT<B-A)/2> 

51  PRINT, "FEMALE-" ; A+7-C/5-G 

52  PRINT,  "MALE-"  JFHV5-G 

53  ENB 

54  F0RJ®1T05 

55  PRINT 

56  NEXT: RETURN 


Bird  Cage 

In  its  first  incarnation,  in  England,  this  game  had  the  most  improbable 
name  of  Sweat-Cloth,  and  when  exported  to  the  United  States  in  the  early 
years  of  the  19th  Century,  it  became  known  first  as  Sweat.  Its  name 
changed  through  the  years  to  Chucker-Luck,  Chuck-Luck,  Chuck-a-Luck 
or  just  plain  Chuck.  Nowadays,  because  of  the  equipment  used  in  the  non¬ 
computer  version,  the  game  is  often  called  The  Bird  Cage. 

The  bird  cage  is  an  enclosed  wire  cage  holding  three  dice.  Players  bet  on 
the  likelihood  of  a  particular  number  coming  up.  If,  for  example,  they  place 
their  money  on  six,  and  one  of  the  three  dice  ends  up  with  a  six  showing, 
they  get  their  money  back.  If  all  three  dice  show  six,  then  they  get  three 
times  their  money.  A  fairly  simple  game,  but  one  which  arouses  passion 
among  bird  cage  devotees. 

This  program  does  most  of  the  work  for  you.  When  it  first  asks  SIZE  OF 
BET?  you  enter  the  number  of  pounds  and  pence  you  wish  to  bet.  At  all 
times  you  know  how  much  money  you  have  left  (you  start  with  £30)  and 
you  can  bet  up  to  the  total  you  have.  You  automatically  lose  this  amount  as 
the  game  begins  (so  one  die  coming  up  with  your  number  just  returns  your 
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money,  you  need  two  or  three  to  show  a  profit).  Your  next  prompt  will  be 
NUMBER?  and  here  the  computer  just  wants  you  to  enter  a  number 
between  one  and  six.  The  game  explains  itself  as  the  program  progresses. 

10  M-30: PRINT'S" 


M  is  your  starting  stake,  and  M  your  running  cash  total 

20  GOSUB280 

Subroutine  280  prints  your  money  on  the  screen,  and  incorporates  a  delay 
loop  (290  and  300)  which  is  accessed  separately  at  one  point  (line  220) 

30  INPUT "SIZE  OF  BET"; A 
50  IFfl>MTHEN30 
60  PRINT"£";fi 
70  rwi-fl 

80  INPUT "NUMBER" ; B 
110  I FB< 1 QRB>6THENS0 

The  next  section  rolls  the  dice,  changing  your  stake  as  it  does  so  if  you  win. 

120  F0RO1T03 
130  W=0 

W  is  the  win/lose  flag  and  paymaster 

140  GOSUB290 

150  B=INT <6#RNB< 1 ) )+l 

155  PRINT 

160  PRINT'DICE  N0.";C;"FELL";D 
170  IFB=BTHENW=fi 
180  IFD=BTHENPRINT,  "WIN  £".:W 
190  M=M+W 

The  subroutine  changes  the  total  if  you  have  won 

200  GQSUB280 
210  NEXTC 

There  is  a  short  delay  before  the  game  continues 

220  GO3UB290 
230  PR I NT "3" 
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If  you  have  money,  action  moves  back  to  line  20 


240  IFM>0THEH20 

If  you  are  broke,  woe. . . 

250  PR I NT "GAME  0VER,V0U  ARE  BROKE" 
270  GOTO250 

This  is  the  tally-changer  and  delay  subroutine 

280  PR I NT "STAKE  £";M 
290  FORN=1TO2000 
300  NEXTN 
310  RETURN 


Seventh  Heaven 

In  its  youth  as  a  dice  game,  this  was  known  as  UNDER  AND  OVER  7.  It 
seems  very  attractive  to  gamblers,  because  it  appears  loaded  in  the  player's 
favour.  As  you'll  discover  when  you  play  it  with  'money'  which  only  Exists 
in  the  variable  store,  the  game  is  loaded  against  the  player.  If  the  random 
number  generator  worked  perfectly,  and  you  played  this  game  for  ever, 
your  losses  would  outweigh  your  gains  by  15%%.  Now  you've  been 
warned,  we'll  move  into  SEVENTH  HEAVEN. 

Once  again,  we've  used  M  to  represent  your  money. 

10  PR  I  NT  "T 
20  M*30 

And  once  again,  we  have  a  subroutine  to  print  out  your  growing  (7)  total 

30  GQSUB320  > 

The  next  section  asks  you  to  place  your  bet  on  one  of  the  three 
possibilities:  the  dice  will  land  with  a  total  under  7  (A);  equal  to  7  (B);  or 
over  7  (C).  You  indicate  your  choice  by  entering  either  A,  B  or  C. 

40  PRINT'TLRCE  VOUR  BET" 

50  PRINTER)  UNDER  7  <B>  7,,,"<C)  OVER  7" 

The  next  line  explains  your  winnings  —  money  back  (A  or  C)  or  4  to  1  (B, 
written  as  5  for  1  to  look  as  if  you  are  getting  more. .  .sneaky) 
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60  PRINT" (fl>  EVEN  <B)  5  TO  EVEN" 

70  INPUTflf 


If  you  wish  to  stop  the  game,  enter  "S" 
80  IFfi$="S"  THEN  END 

Now,  you  enter  the  amount  of  your  bet 

90  INPUT "AMOUNT" ;  R 
110  IFfl>MTHEN90 
130  B*INT<6*RND<1>>+1 
150  O I  NT  <  6#RND < 1 ) ) + 1 
170  D=C+B 
180  PRINTD 


This  section  of  the  program  works  out  how  well,  or  otherwise,  you  have 
done 


185  M=-fl 

1 90  I FB=7flNBA$= " B " THENW=4*R 
200  I  FB<7flNDfl$ss "  R  "  THENW®fl 
210  I FB>7ANBR$= " C " THENW=fl 
230  M*M+W 

240  I FW>0THENPR I NT " VOU  WIN  i" 

250  I FW<0THENPR I NT " VOU  LOSE  *";-W 

260  GOSUB320 

270  FORN-1TO1000 

280  NEXTN 

290  IFM<1THENENB 

300  PR I NT 

310  GOTO30 

320  PR  I  NT  "STAKE  $" ;  M  '•  RETURN 


Let  the  longer  games 
begin 

After  a  while,  you'll  want  to  write  longer  games.  When  you  do  this,  you'll 
discover  that  many  of  the  good  habits  you've  learned  can  desert  you.  It  is 
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very  easy  to  set  up  a  long  and  sloppy  set  of  IF/THENs  which  could  easily 
be  replaced  by  an  IF/THEN  instruction  to  GOSUB.  When  you  have 
memory  to  spare,  it  often  seems  too  much  trouble  to  bother  cleaning  up 
your  programs.  Unused  subroutines  clutter  up  the  bottom  ends  of  your 
programs.  GOTO  statements  cover  a  multitude  of  situations  which  arose 
because  you  did  not  give  sufficient  thought  to  the  maximum  line  number 
you  would  need. 

If  you  are  going  to  take  up  flow-charting,  now  is  the  time  to  begin.  If  you 
can't  be  bothered  with  pretty  triangles  and  things,  at  least  discipline 
yourself  to  setting  out  —  on  paper  —  what  your  program  is  supposed  to 
do,  with  arrows  linking  FOR/NEXT  loops,  and  lines  leading  to  the  first  lines 
of  subroutines.  If  you  can  be  bothered,  it  is  worth  writing  out  a  full  listing 
for  a  program  once  you  get  it  working.  Examine  it  in  detail,  and  you're  sure 
to  find  more  elegant  ways  of  achieving  the  same  ends.  Be  particularly 
critical  of  each  and  every  GOTO  command  which  is  non-conditional. 

All  the  programs  given  so  far  in  this  book  can  act  as  starter  ideas  for  much 
bigger  and  better  programs  when  you  get  extra  money. 

The  best  thing  you  can  add  to  a  program  with  added  memory  is  the 
element  of  surprise.  If  you  can  include  situations  which  do  not  occur  every 
time  a  game  is  played,  you'll  ensure  the  game  will  remain  interesting  for  a 
much  longer  time  than  would  be  the  case  if  every  situation  is  triggered 
every  time  a  game  is  run. 

As  you  know,  many  of  the  games  in  this  book  run  far  too  fast  to  be  good 
games  without  the  use  of  a  "delay  subroutine".  However,  as  you  get  into 
longer  games  (and  I  mean  ones  much  longer  than  those  listed  in  this 
section)  you'll  find  that  slow-running  programs  and  response-times  can  be 
boring,  especially  if  you  have  a  graphical  element  in  your  program,  which 
"moves"  in  some  way  from  go  to  go.  Variables  which  must  be  assigned  at 
the  start  of  a  game  can  actually  be  listed  right  at  the  end  of  the  program, 
ending  with  a  GOTO  leading  back  to  the  start  of  the  game  program  proper. 
You  can  have  a  line  like  "DO  YOU  WANT  INSTRUCTIONS?"  near  the 
start  of  a  program,  and  if  the  answer  is  "YES"  the  computer  can  GOTO  the 
end  of  the  program  where  the  instructions  are.  LABYRINTH,  if  you  wanted 
it  to  run  more  quickly,  could  have  the  instructions  at  the  very  end.  Doing 
this  would,  of  course,  somewhat  defeat  the  purpose  of  having  a  delay 
subroutine.  However,  when  you  write  very,  very  long  programs,  you  will 
not  always  want  to  wait  while  the  computer  searches  a  vast  listing  for  the 
subroutine. 

Another  way  of  improving  programs,  and  making  them  interesting  to 
players  for  a  longer  time,  is  to  use  a  feature  you've  seen  in  some  programs, 
the  "degree  of  difficulty".  Make  sure  that  this  feature  really  does  increase 
the  difficulty  of  the  game.  Ensure  that,  even  at  the  highest  level  of  play,  the 
final  score  (or  successful  landing,  or  obliterated  aliens  or  whatever)  is 
attainable. 
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You  can  add  interest  to  games  by  awarding  points,  or  scores,  or  ratings  or 
whatever,  that  are  genuinely  related  to  the  speed,  skill  or  whatever  the 
player  demonstrated.  A  further  twist  is  to  award  a  "rank"  (like  "star  fleet 
captain",  "novice"  or  "incompetent  fool")  to  the  player,  depending  on 
how  well  he  or  she  did.  Points  and  ranks  ensure  that  a  player  remains 
interested  in  a  game  for  a  longer  time,  as  the  player  will  try  to  beat  his  or 
her  previous  best  score  or  ranking. 

Keeping  these  features  in  mind,  have  a  look  at  the  next  two  games,  enter 
them  and  run  them,  and  then  try  to  improve  on  them. 


Lunar  Landing 

10  M=0 
20  T=0 
30  S=0 
40  H=5000 

50  PRINT"  LUNAR  LANDING" 

60  F=5000/INT  <3#RNB< 1 )+l ) 

70  Q— 17 
80  E=1 
100  PRINT 
110  PRINT 
120  6OTO300 

130  PRINT"+  IS  TOWARDS  LUNA" 

140  INPUTZ 

150  I  FZO50ORZ>50THEN4 1 0 

160  PR I NT "FOR  HOW  MANY" : INPUT "SECONDS" ; E 

180  PR  I  NT  "T 

190  T=T+E 
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200  3=S+10+3#E#<<Z+1>/B> 

210  F=F-3*E#ABS<Z#INT<3#RNB<  1 ) )+l > 

220  I FF <500THENPR I NT " FUEL  LOW" 

230  H=H-E*S 

240  I FH<20ANDH>- 1 0ANBS< 1 2THEN476 

250  I FHO- 1 0THEN440 

260  IFF<0THEN440 

270  X=INT < 10#RNB< 1 ) )+l 

280  I  FX=5ANBMO2THENGOSUB790 

290  PRINT 

300  PRINTCHR$<96+M);  "HEIGHT  ABOVE  SURFACE : ;  H 

310  I FQO- 1 7THENQ=Q~  I  NT  <  16*RNB<  1  >  >~1 

320  I F Q<0 ANBQ>- 1 7THEN440 

330  I  FQO- 1 7THENPR I  NT  "  OXYGEN  LEFT : " Q 

340  PR I NTCHR$ < 96+M ) J "VELOCITY : " ; S 

350  IFB01THENPRINTCHR$<96+M> "WARNING-", ,  "THRUST  ERRATIC" 

360  PRINTCHRf  <96+M> ;  "FUEL  LEFT : F 
370  PRINTCHR$(96+M\:  "FLIGHT  TIME:";T 
380  GOSUB510 
390  PRINT 

410  PRINT" THRUST < -50  TO  50>?" 

420  GOTO 130 

440  PRINT"XRASH.HIT  SURFACE",  "AT" ;ABS<S>; 

450  GOTO440 

470  PR  I  NT  "SUCCESSFUL  LRNBING" 

480  PRINT 

490  PRINT "FINAL  VELOCITY : " J  ABS<S> ; 

500  GOTO490 

510  F0RA=1T022 

520  PR I NTCHR$  <  96+M  > ; 

530  NEXT 
540  RETURN 
790  PR  I  NT  "T 
800  M=M+1 
820  F0RV-1T04 
830  PRINT 
840  NEXTV 

850  U=INT (32000#RNB< 1 ) )+l 
860  F0RV=1T04 

870  PR I NT " HOUSTON , WE  HAVE  A  PROBLEM ..." 

880  PRINTCHR$< INT(32#RNB< 1 )+96>  > ; " SBANGERi" CHR$< INT<32*RNB< 1 )+96) 
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890  PRINT 
900  PRINT 

910  PR  I  NT MALFUNCT ION",  "  USE  COMPUTER" 

920  PRINT "ACCESS  CODE" JU; "FOR  DETAILS" 

930  INPUTV 

940  PR  I  NT  "T 

950  IFUOVTHEN440 

960  ON  I  NT  <  29KRND  <1 >  > + 1 GOSUB  1030,1 070 
990  INPUT "PRESS  RETURN  TO  RETURHTO  FLIGHT" JV$ 
1010  PR  I  NT  "T 
1020  RETURN 

1030  Q=INT<19#RND<1)H101 

1040  PRINT" OXVGEN  METER ", " UNRELIABLE" 

I860  RETURN 

1070  B=B+INT<3#RN3K1>)+1 

1080  PR I NT "THRUST  CONTROL  ERRRTIC" 

1100  RETURN 


Labyrinth 

10  GOSUB1010 
20  PR I NT " LflBVR I NTH " 

30  PRINT 
40  K=0 
50  S=30 
60  W=1 

70  PRINT"VOU  ARE  RT  THE  START" 

80  PR I NT "OF  fl  LflBVR I NTH  OF  MANY"; 
90  PRINT"TWISTING, TURNING" 

100  PRINT" TUNNELS . VOU  HAVE  30" 

110  PR I NT "PIECES  OF  SILVER. VOU" 

120  PR I NT "MUST  GET  TO  THE  END  OF"; 
130  PR I NT "THE  LABYRINTH  WITH  AT" 
140  PR I NT "LEAST  20  TO  PAV  THE" 

142  PRINT"MINOTAUR" 

144  PRINT 

150  INPUT "PRESS  RETURN" ;A$ 


180  IFA$<>"  "THENENB 

190  GOSUB1010 

200  IFW<1THENW=1 

210  PRINT"THIS  IS  MAZE/TUNNEL" 

220  PRINT 

230  I FW=> 1 0THEN 1070 

240  PR I NT " NUMBER " ;  W ; " OF  THE" > "LABVRINTH" 
250  PRINT 

260  PRINT" <10  IS  THE  END)" 

270  PRINT 
280  X=X+ 1 

290  PRINT"THIS  IS  CHALLENGE"  .•  "NUMBER" ;  X 
300  IFS<1THENS=3 
310  PRINT 

320  PR  I  NT"  VOL)  HAVE" ;S, "SILVER  PIECES" 

33©  GOSUB1000 
340  PRINT 

345  K= I NT ( 4#RNB  < 1 ) )  +2 

350  PR I NT "FACING  VOU  NOW  ARE",K; "BOORS" 

360  PR I NT "WHICH  ONE  WILL  VOU" : INPUT"TRV";A 

380  GOSUB1010 

390  IFRNBdX.  1THEN690 

400  IFAOKTHEN428 

410  IFA=KTHEN690 

420  K=INT<4*RNB<D> 

430  I FK=0THENE$= " ^RODENT I NG  RATS" 

440  I  FK=  1  THENE$= "  !S*i ART-FACED  WOGGLES" 

450  IFK=2THENE$*"SELLIPS0ID  OCTOPUSS" 

460  IFK=3THENE$="»!ACKED-0UT  WIZARDS" 

470  PR  I  NT "  FOOL VOU '  VE  WALKED  IN  ON  A" 

480  E=INT<4#RNB<1>> 

490  I FE=8THENF $- " FLAM I NG  BRAND" 

500  I FE* 1 THENF$= " SH I N I NG  SWORD" 

510  I FE=2THENF $= " PO I SONED  NEEDLE" 

520  I FE=3THENF$= " GOSUB-MACH I NE  GUN" 

530  PRINTEI,"  ARMED  WITH" 

540  PR  I  NT 11 A  ";F$ 

550  PRINT 

560  PRINT"WHICH  WEAPON  DO  VGU">  "CHOOSE?" 
570  PRINT 

580  PR I NT "FLOATING  POINT  R0M<1) j " 
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590  PRINT 

600  PR I NT "FOR/NEXT  LOOP (2), " 

610  PRINT 

620  PR I NT "POKED  ADDRESSES) " 

630  INPUTS 

640  C= I NT  <  3#RND  <130+1 

650  GOSUB1010 

668  I FB=CTHENGOSUB 1 1 70 

670  I FBOCTHENGOSUB 1240 

680  GOTO 150 

690  K=INT<4#RND<1>>+1 

700  ONKGOSUB760 ,810 , 850 , 988 

740  GOTO 150 

750  PRINT 

760  PRINT"VOU'VE  FALLEN  THROUGH" 

770  PRINT"  fi  TRAPDOOR, , , " 

780  W=W-1 

798  S=S- 1 NT ( 2*RND  <!))-! 

808  RETURN 

810  PR I NT "A  WALL  OF  FLAME", "ENGULFS  VOU 
828  W=W-1 

830  S=S- 1 NT  <  2#RND  <130-1 
840  RETURN 

850  PR I NT "THE  LOVELV  SEMOLINA" 

860  PR I NT "SOOTHES  VOUR  FEVERED  BROW" 
878  S=S+INT<5#RND<1>>+1 
880  W=W+ 1 NT  <  3#RND  <130+1 
890  RETURN 

900  PRINT"JOV  OH  JOV.A  HOARD  OF" 

910  PRINT"SILVER. CHOOSE  UP  TO  5  PIECES" 
920  PR I NT "BUT  BE  WARNED. THE  MORE"; 

938  PR I NT "VOU  TAKE, THE  MORE  IT  WILL" 
940  PR I NT "COST  VOU. HOW  MANV?" 

950  INPUTD : IFD05THEN958 

960  3=S+D 

970  W=W-INT<D/2) 

980  RETURN 

1000  FQRQ=1T0INT<  1000#RND< 1 3<  >+8000 
1005  NEXT 
1018  PR  I  NT  "T 
1020  F0RI=1T05 


1030  PRINT 
1048  NEXT 
1050  RETURN 

1060  I FWO 1 0THENRETURH 

1070  PRINT"V0U  ARE  AT  THE  END" 

1080  PR I NT "DO  VOU  HAVE  ENOUGH'S  "SILVER?" 

1090  PR  I  NT  "PRESS  RETURN  TO".- "FIND  OUT" 

1180  INF’UTC* 

1110  IFS<20THENPRINT"THE  MINOTAUR  HAS  EATENVOU" 
1120  IFSC28THEH1110 

1 1 30  PR  I  NT  "  VES ,  VOU  HAVE  ” ;  S  .■  "  S I LVER  P I ECES " 

H40  PR  I  NT  "VOU  HAVE  WON" 

1150  GOTO li 30 

1170  PR  I  NT  "VOU  BEAT  THESE* 

1180  S=S+INT<3#RND< 1 > )+! 

1190  PR  I  NT  "AND  HAVE"  ;8.-  "SILVER  PIECES" 

1 200  W=W+ I NT ( 3*RNB (1))+1 
1210  PRINT 

1 220  PR  I  NT  "  VOU  ARE  APPROACH  I  NO " , "  SECTOR " W 
1238  RETURN 

1248  PR  I  NT  "THE  ";E$,  "BEAT  VOU  ..AND" 

1 258  S=S- I NT < 4#RND <1 >  > - 1 
1 260  PR  I  NT "  LEFT  VOU  W I TH  " j  S  .."SI  LVER  P I  ECES " 

1270  W=W-1 
1280  IFW<1THENW=1 

1298  PR  I  NT  "AND  SENT  VOU  BACK  TO'SW 
1380  RETURN 

Teacher 

The  computer  is  an  effective  game  player.  Writing  and  running  programs 
on  the  computer  enhances  programming  skills.  However,  it  can  also  be 
used  in  a  direct  role  as  a  teaching  aid.  Its  main  use  is  in  the  field  of  quizzes. 
While  the  computer  can  only  select  from  a  list  of  non-numerical  questions, 
the  computer  can  easliy  be  reprogrammed  to  create  its  own  numerical 
questions. 

Another  use  in  teaching  is  for  the  computer  to  create  lists  and  tables.  We 
will  look  at  this  use  first. 

1  PRINT 

2  PRINT 

3  PR I NT "MULT I PL I CRT I ON  TABLES" 
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4  PRINT 

5  PRINT 

6  PRINT 

7  PR I NT "WHICH  TIMES  TABLE"* "WOULD  VOU" 

8  INPUT "LIKE  ME  TO  PRINT" jfl 

10  PR  I  NT  "T 

11  F0RJ=1TQ12 

12  PRINTJ; "X" jfl# J 

13  NEXTJ 

14  PRINT 

15  PRINT 

16  PR  I  NT  "DO  VOU  WANT  ANOTHER"  :  INPUT  "GO" ; 

18  PR  I  NT  "IT 

19  I F A$<> " NO " THEN4 

20  F0RS=1T05 

21  PRINT 

22  NEXTS 

23  PR I NT "OK, EVE  FOR  NOW" 

24  END 

A  far  more  useful  table  is  produced  by  the  following  program  (and  the 
display  is  a  little  more  imaginitive).  Again,  this  program  is  given  to  suggest 
ideas  for  your  own  programs. 
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A  Degree  of 
Conversion 


20  PR I NT "SR  DEGREE  OF  CONVERSION" 

30  K=INT<32#RNBa>+9S> 

40  F0RS=1T022 
50  PRINTCHRfOO; 

60  NEXTS 
70  PRINT 
80  PRINT 
30  PRINT 
108  PRINT 

110  PR I NT "WHAT  IS  THE  LOWEST  TEMP, <F)  VOU" 

120  INPUT "WANT  TO  CONVERT "Jfl 

140  INPUT "AND  HIGHEST" ;B 

160  IFB<ATHENE*A 

170  IFfl<BTHENF=fl 

180  IFB<ATHENF=B 

190  IFA<BTHENE=B 

200  INPUT" IN  WHRT  DEGREE  STEPS" iZ 
230  PR  I  NT ’T3  F  C  K" 

240  PRINT 

250  H=INT<32*RNB<1 >+96) 

260  F0RU=1T07 
270  PRINTCHR*<H); 

280  NEXTU 
290  PRINT 

300  FORD=FTOE+ZSTEPZ 
310  C=I NT <  5*  < D-32 ) /9+ , 5 ) 

320  K=C+273 

330  printd;c;k 

340  NEXTD 
350  END 


In  all  programs,  and  especially  in  educational  ones,  you  have  to  try  and 
anticipate  any  mistakes  (deliberate  or  otherwise)  users  will  make  when 
running  a  program.  The  lines  1 60  to  1 90  cover  the  possibility  that  a  user  will 
input  the  higher  temperature  first,  rather  than  the  lower  one  which  was 
requested. 
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There  is  no  reason  why  educational  programs  should  not  have  displays  that 
are  as  attractive  as  games  programs,  so  lines  30  to  60  and  lines  250  to  280 
select,  in  effect,  a  random  underline.  It  is  a  good  idea  to  incorporate  such 
features  whenever  you  have  sufficient  memory. 

Line  300  tells  the  VIC  to  print  the  value  above  the  maximum  requested,  in 
order  to  ensure  that  the  required  temperature  is  covered. 

This  is  quite  an  interesting  program  to  run,  especially  if  you  select  an 
enormous  range  of  temperatures,  and  select  an  unexpected  increment  (like 
117  degrees).  Of  course,  the  computer  deals  as  easily  with  these  cases  as  it 
does  with  the  more  predictable  0  degrees  to  1 00  degrees,  but  it  seems  a 
little  surprising  to  first-time  users  that  it  does  so. 

As  an  exercise,  modify  the  program  so  it  will  not  print  any  value  but  0  if  the 
temperature  drops  below  absolute  zero  (0  Kelvin,  or  minus  2730. 

We  will  look  now  at  a  numerical  quiz,  in  which  the  VIC  creates  the 
questions,  checks  their  correctness,  and  then  gives  the  user  a  score. 


Multiplication  Quiz 

1  H=@ 

2  G0SUB46 

3  PRINT " mULT I PL I CRT I ON  QUIZ” 

4  G0SUB4S 

5  PRINT-DECREE  OF  DIFICULTY"  :  INPUT” a  Tn  im"  ;fi 

7  I FR< 1 ORfi> 1 0THEN  ID 

8  fl=IMW2+.5> 

18  G0SUB46 

11  INPUT "HOW  MANY  QUESTIONS" B 

13  IFBOTHENll 

14  PRINT-T 

15  F0RG=1T0B 

16  C=fl#INTa@*RNIKi>+l> 

17  B=fl*INT<18*RNIK  1)+1) 

18  E=C#B 

19  G0SUB4S 

28  PR I NT " QUEST I ON  NUMBER" ;G 

21  G0SUB4S 

22  PRINT"WHRT  IS" ;C; "TIMES" ;Ti 

23  INPUTF 
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25  00SUB4S 

26  IFF=ETHEN42 

27  PRINT'1  INCORRECT.  "  :  PR  I  NT  "THE  ANSWER  IS".:E 

28  G0SUB4S 

29  PRINT"VOUR  SCORE  IS".;H 

30  PR  I  NT  "OUT  OF".;G 

31  PRINT "PRESS  RETURN" 

32  I  FG-OBTHEHPR  I  NT  "  TO  CONTINUEE” 

33  INPUTfi$ 

34  PR  I  NT  "13" 

35  NEXTQ: 0=0-1 

36  F0RK=1T02 

37  G0SUB4S 

38  NEXTK 

39  PR  I  NT  "END  OF  QUIZ/t'OUR  SCORE  IS 51 

40  PR  I  NT  I  NT  <  H*  1 80/0  > ; n  Ji n 

41  END 

42  H=H+1 

43  G0SUB4S 

44  PR I NT "CORRECT, THE  BN8WER  ISME 

45  00T028 

46  FORS* 1 T05 

47  PRINT 

48  NEXTS 
43  RETURN 

To  make  this  an  addition,  subtract  or  division  quiz,  simply  change  the 
arithmetic  operation  specified  in  line  18,  and  the  word  (TIMES  in  the  above 
program)  in  line  22. 

There  are  a  number  of  things  which  can  be  learned  from  this  program.  The 
most  obvious  is  the  use  of  the  subroutine  (GOSUB  46)  which  spaces  the 
question  and  answer  across  the  screen,  enhancing  readability.  Lines  7  and 
13  ask  the  questions  in  lines  5  and  1 1  again  if  an  answer  in  the  required 
range  is  not  given  the  first  time.  There  is  no  reason  why  you  cannot  put  in 
an  additional  line  which  says  something  like  ONLY  ANSWERS  BETWEEN 
1  AND  10  ARE  ACCEPTABLE  if  you  want  to.  Line  8  can  be  omitted  if  you 
want  very  difficult  quizzes  to  be  available.  The  one  to  10  option  in  line  5  is 
to  give  the  user  the  impression  that  he  or  she  has  greater  influence  on  the 
program  than  in  fact  is  the  case. 

At  the  end  of  all  questions  in  a  set,  but  the  last,  lines  31  and  32  cause 
PRESS  RETURN  TO  CONTINUE  to  appear  at  the  bottom  of  the  display. 
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Line  32  ensures  that  after  the  final  question  only  the  words  PRESS 
RETURN  appear. 


Squares 

The  following  table  prints  out  numbers  and  their  squares. 

1  DEF  FN8<Z>=Z*Z 

2  G0SUB22 

3  PRINT, "SQUARES" 

4  G0SUB22 

5  INPUT "LOWEST  NUMBER"; A 

7  G0SUB22 

8  INPUT"HIGHEST  NUMBER" ;B 

10  G0SUB22 

11  INPUT "PRESS  RETURN  FOR  TABLE" ; Uf 

13  PR  I  NT  "T 

14  F0RX=AT0B 

17  PR I NTX; "SQUARED  IS";FNS<X> 

18  HEXTX 

19  PRINT 

28  PRINT"  END  OF  TABLE" 

21  END 

22  F0RC=1T03 

23  PRINT 

24  NEXTC 

25  RETURN 

Notice  how  the  "squared"  function  is  DEFINED  in  line  one,  and  then 
USED  in  line  17.  You  could  put  different  functions  in  line  one  if  you 
wanted,  (although  you'd  have  to  change  the  word  "SQUARED"  in 
line  17.) 

I'm  sure  you  will  now  be  able  to  work  out  an  endless  stream  of  numerical 
quizzes  for  yourself,  your  children  or  your  class  to  tackle.  Non-numerical 
quizzes  are  very  useful,  but  they  require  much  more  work  in  programming. 
Whereas  the  computer  can  create  its  own  numerical  questions,  each  non- 
numerical  question  must  be  specified,  and  each  answer  included  in  full  in 
the  program. 
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Appendices 

APPENDIX  1  -  COMMANDS 

CONT  re-start  the  program  after  it  has  been  stopped  by  END 

or  STOP. 

LIST  list  the  current  program. 

LOAD  get  program  from  tape  (or  disc). 

NEW  erase  current  program. 

RUN  begin  execution  of  a  program. 

SAVE  store  program  on  tape  (or  disc). 

VERIFY  check  that  program  stored  on  tape  (or  disc)  is  the 

same  as  the  current  program. 


APPENDIX  2  - 

CLOSE 

CLR 

CMD 

DATA 

DEF 

DIM 

END 

FOR... TO 


GET 

GOSUB 

GOTO 
IF... THEN 

INPUT 

ON 


OPEN 

POKE 

PRINT 

READ 

REM 

RESTORE 

RETURN 


STATEMENTS 

complete  and  close  an  opened  file, 
delete  all  variables. 

reroute  the  PRINT  output  to  some  other  device, 
a  list  of  items  to  be  used  by  READ  statements, 
define  a  user-defined-function.  Function  name  must 
begin  with  FN. 

create  an  array  of  specified  size, 
end  of  program. 

begin  a  loop.  The  specified  variable  is  incremented 
each  time  round  the  loop.  If  no  step  size  is  given  the 
step  is  automatically  one.  The  loop  is  repeated  until 
the  variable  falls  outside  the  given  range  of  values, 
scan  the  keyboard  and  assign  the  specified  variable 
with  the  contents  of  the  key  currently  being  pressed, 
as  GOTO  except  that  the  next  line  to  be  executed  is 
"remembered''  and  used  by  later  RETURN  statement, 
control  moves  to  the  specified  line  number. 

IF  the  condition  given  is  true  THEN  carry  out  the 
required  instruction,  otherwise  move  to  the  next  line, 
wait  for  a  value  to  be  typed  in  from  the  keyboard  and 
assign  it  to  a  variable. 

used  with  GOTO  or  GOSUB  to  choose  from  one  or 
more  possible  destinations  depending  on  the  value  of 
an  expression, 
open  a  file  or  device. 

change  the  contents  of  a  given  address  to  a  given 
number. 

display  information  on  the  screen. 

assign  to  a  variable  the  value  found  in  a 

corresponding  DATA  statement. 

this  line  is  ignored  by  the  VIC. 

move  the  DATA  pointer  to  the  first  item  in  the  list. 

control  moves  to  the  line  immediately  after  the  last 

GOSUB  statement  executed. 


124 


STOP 

SYS 

WAIT 


APPENDIX  3 

ABS(X) 

ATN(X) 

COS(X) 

EXP(X) 

FN _ (X) 

INT(X) 

LOG(X) 

PEEK(X) 

RND(X) 

SIN(X) 

SQR(X) 

TAN(X) 

USR(X) 


ASC(A$) 

CHR$(X) 

LEFT$(A$,X) 

LEN(A$) 

MID$(A$,X,Y) 

RIGHT$(A$,X) 

STR$(X) 

VAL(A$) 

FRE(X) 

POS(X) 

SPC(X) 

TAB(X) 


stops  the  program  with  the  message  BREAK  ERROR 
IN  LINE. 

call  machine  code  subroutine  beginning  at  specified 
address. 

pause  until  a  specified  memory  location  changes  to  a 
specified  value  or  binary  bit  pattern. 

FUNCTIONS 

X  if  X  is  greater  than  or  equal  to  zero,  or  -  X  if  X  is 
less  than  zero.  The  answer  is  always  positive. 

The  arctangent  of  X,  in  radians. 

The  cosine  of  X  radians. 

The  value  e  raised  to  the  power  of  X.  e  is 
approximately  2.71827183 

User-defined-function  determined  by  a  previous  DEF 
statement. 

The  largest  integer  which  is  not  greater  than  X. 

The  natural  logarithm  of  X. 

The  contents  of  address  X. 

A  random  number  between  zero  and  one. 

The  sine  of  X  radians. 

The  number,  which  when  multiplied  by  itself  equals 
X. 

The  tangent  of  X  radians. 

Call  the  machine  code  subroutine  beginning  at 
address  stored  in  locations  1  and  2.  The  value  of  X  is 
passed  to  the  machine  code  program. 

The  character  code  of  the  first  character  of  A$; 

The  character  whose  code  is  X  X. 

The  first  X  characters  of  A$. 

The  number  of  characters  in  A$. 

The  first  Y  characters  of  A$  starting  with  the  Xth 
character. 

The  last  X  characters  of  A$. 

The  number  X  in  the  form  of  a  string. 

The  number  contained  in  the  string  A$ 

The  number  of  available  unused  bytes. 

The  column  number  of  the  next  print  position. 

A  string  of  X  spaces.  (May  only  be  used  in  PRINT). 
Moves  the  print  position  to  column  X.  (May  only  be 
used  in  PRINT). 
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Appendix  4  —  Screen 
Codes 
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SET  1  SET  2  POKEIJ 

JET  1  SET  2  POKEI 

? 

63 

□  T 

84 

B 

64 

3  u 

85 

a 

A 

65 

0  V 

86 

OD 

B 

66 

<3  w 

87 

B 

C 

67 

9  * 

88 

□ 

D 

68 

□  v 

89 

B 

E 

69 

9  z 

90 

□ 

F 

70 

B 

91 

D 

G 

71  I 

El 

92 

□ 

H 

72  | 

11 

93 

□ 

1 

73 

IT  a 

94 

□ 

J 

74  [ 

95 

□ 

K 

75  1 

96 

□ 

L 

76  1 

c 

97 

M 

77  t 

98 

0 

N 

78  [ 

□ 

99 

□ 

0 

79  [ 

□ 

100 

□ 

P 

80  | 

□ 

101 

9 

Q 

81  | 

1 

102 

□ 

R 

82  [ 

□ 

103 

IS 

S 

83  [ 

104 

1 

r\  m 

105 

SET  1  SET  2  POKE 

□ 

106 

m 

107 

a 

108 

s 

109 

□ 

110 

□ 

111 

H 

112 

B 

113 

B 

114 

ffl 

115 

E 

116 

E 

117 

□ 

118 

n 

119 

□ 

120 

u 

121 

□  ^ 

122 

L 

123 

a 

124 

□ 

125 

E 

126 

V 

127 

127 


Appendix  5  —  ASCII  and 
CHR$  Codes 


PRINTS  CHR$ 

PRINTS 

CHRS 

PRINTS 

CHRS 

PRINTS 

CHRS 

00 

10 

|  SPACE 

|  20 

0 

30 

01 

11 

j 

21 

1 

31 

02 

JEM 

12 

•• 

22 

2 

32 

03 

13 

# 

23 

3 

33 

04 

14 

$ 

24 

4 

34 

Q2I 

05 

15 

% 

25 

5 

35 

06 

16 

& 

26 

6 

36 

07 

17 

27 

7 

37 

08 

18 

( 

28 

8 

38 

09 

19 

) 

29 

9 

39 

0A 

1 A 

* 

2A 

3A 

OB 

IB 

+ 

2B 

i 

3B 

OC 

1C 

i 

2C 

c 

3C 

0D 

ID 

— 

2D 

= 

3D 

■  SWITCH  TO 
|  LOWER  CASE 

OE 

IE 

2E 

I> 

3E 

OF 

IF 

/ 

2F 

? 

3F 
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PRINTS 

CHR$ 

PRINTS 

CHR$ 

@ 

64 

U 

85 

A 

65 

V 

86 

B 

66 

w 

87 

C 

67 

X 

88 

D 

68 

Y 

89 

E 

69 

z 

90 

F 

70 

[ 

91 

G 

71 

<£ 

92 

H 

72 

] 

93 

1 

73 

t 

94 

J 

74 

95 

K 

75 

B 

96 

1 

76 

a 

97 

M 

77 

m 

98 

N 

78 

B 

99 

0 

79 

B 

100 

P 

80 

□ 

101 

Q 

81 

Q 

102 

R 

82 

□ 

103 

S 

83 

□ 

104 

T 

84 

□ 

105 

129 
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Index 

Foreword . 

Abbreviations . 

Introduction . 

Random  Numbers . 

Decision  makers . 

Russian  roulette . 

Pattern  makers . 

Building  a  library . 

Review . : . 

For/ Next . 

Flipping  a  coin . 

Number  crunching . 

Number  juggle . 

Writing  a  program . 

Extra-Sensory  Perception . 

Kill  the  Chopper . 

Days  of  our  lives . 

Toying  with  the  Muse . 

Hunting  on  a  grid . 

Slot/fruit  machines . 

Lost  in  space . 

Arrays . 

Dim  spider . 

Pesky  piksy . 

Aliens  and  asteroids . 

Colour  graphics . 

Strings  and  ladders . 

Roadrace . 

52  Bluff . 

Hot  sauce . 

Draughts . 

First  steps  towards  the  stars . 

Frenzy . 

Music . 

Read  and  Data . 

Maestro . 

Doing  it  in  your  head . 

Echo  chamber . 

More  things  to  do  with  your  VIC 

Cave  Master . 

Alpha . 

Turning  the  tables . 

Nine  lives  (Hangcat) . 

Nim . 

Life . 


3 

5 

6 
7 

11 

13 

18 

20 

21 

22 

23 

26 

28 

30 

31 
34 
36 
39 
43 
45 

48 

49 
51 
53 

55 

56 
58 
60 
,62 
64 
66 

73 

74 

76 

77 
79 
81 
82 
83 

89 

90 

91 
93 

95 

96 
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Cubik . 

Outsmart . 

Logica..^, . . 

Blackjack . . 

Kalki,  the  Mind  Reader. 

Chemin  de  Fer . 

Craps . 

Life  expectancy . 

Bird  cage . 

Seventh  heaven . 

Lunar  Landing . 

Labyrinth . 

Teacher . 

Appendices . 


97 

99 

99 

100 

102 

103 

105 

107 

108 
110 
113 
115 
118 
124 


Getting  Acquainted 
With  Your  VIC20 


Getting  Acquainted  With  Your  VIC20  by  Tim  Hartnell 
leads  the  reader,  step  by  simple  step,  from  the  absolute 
basics  of  programming  the  VIC  to  writing  complex, 
sophisticated  programs.  It  thoroughly  describes  use 
of  the  sound,  music  and  color  graphics  capabilities 
and  illustrates  the  use  of  these  functions  in  over  60 
programs  and  games. 

By  following  the  comprehensive  explanation  given 
for  each  program  and  computer  function,  the  reader 
will  learn  a  great  deal  about  the  VIC,  the  Basic  language 
and  microcomputers  in  general. 

Parents  and  teachers  will  find  the  section  “VIC  as  a 
Teacher”  a  valuable  aid  in  making  the  most  effective 
use  of  the  computer  in  the  teaching/learning  pro¬ 
cess. 

This  book  is  a  worthwhile  resource  and  will  help  the 
reader  make  the  most  of  his  computer.  The  reader 
will  never  feel  quite  the  same  about  it  after  surviving 
a  round  of  FRENZY,  or  listening  to  the  VIC20  compose 
a  symphony’. 
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